X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FRequestReader.hs;h=800484cd0674a98d93dc214cb2c7ad94654cae36;hb=46f1b85674e45e823f5b6c7a1f87b1faf8172b85;hp=1d0f44f0f39c7fe9510bfe5f8fde36a140b9cc95;hpb=41b0d69438ec76c5bd070348cf9912dc72f3ff44;p=Lucu.git

diff --git a/Network/HTTP/Lucu/RequestReader.hs b/Network/HTTP/Lucu/RequestReader.hs
index 1d0f44f..800484c 100644
--- a/Network/HTTP/Lucu/RequestReader.hs
+++ b/Network/HTTP/Lucu/RequestReader.hs
@@ -80,7 +80,7 @@ requestReader cnf tree h host tQueue
                          if isErr then
                              acceptSemanticallyInvalidRequest itr input
                            else
-                             case findResource tree $ (reqURI . fromJust . itrRequest) itr of
+                             case findResource tree $ reqURI req of
                                Nothing -- Resource が無かった
                                    -> acceptRequestForNonexistentResource itr input