X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FTree.hs;h=8150be90ae4097fb636e62a8c72126b856944a2e;hp=4a652a7b7aec8ac210f274a8393080ac0fa4ba66;hb=b22e702f8161447a460847c6e6c97104c150534f;hpb=1ead053df6a792edafa9d714c4c038a8a9c3ad16

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index 4a652a7..8150be9 100644
--- a/Network/HTTP/Lucu/Resource/Tree.hs
+++ b/Network/HTTP/Lucu/Resource/Tree.hs
@@ -104,7 +104,7 @@ findResource ∷ ResTree
              → URI
              → IO (Maybe ([ByteString], Resource))
 findResource (ResTree (ResNode rootDefM subtree)) fbs uri
-    = do let path          = splitPathInfo uri
+    = do let path          = uriPathSegments uri
              hasGreedyRoot = maybe False resIsGreedy rootDefM
              foundInTree    = if hasGreedyRoot ∨ null path then
                                   do def ← rootDefM