Unfoldable Dispatcher

[Lucu.git] / Network / HTTP / Lucu / Resource / Tree.hs

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index 4a652a7b7aec8ac210f274a8393080ac0fa4ba66..8150be90ae4097fb636e62a8c72126b856944a2e 100644 (file)
--- 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