Resource paths should not be assumed to be encoded in UTF-8. HTTP/1.1 says nothing...

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

diff --git a/Network/HTTP/Lucu/Resource/Internal.hs b/Network/HTTP/Lucu/Resource/Internal.hs
index 418a330f5c7bca2d6bb05a2cc9a9d2cbaa8645a7..1d01a8258751af7a73a4a17ee26a0dd41fd17153 100644 (file)
--- a/Network/HTTP/Lucu/Resource/Internal.hs
+++ b/Network/HTTP/Lucu/Resource/Internal.hs
@@ -41,7 +41,6 @@ import qualified Data.ByteString as Strict
 import Data.List
 import Data.Maybe
 import Data.Monoid.Unicode
-import Data.Text (Text)
 import qualified Data.Text as T
 import Network.HTTP.Lucu.Abortion
 import Network.HTTP.Lucu.Config
@@ -267,7 +266,7 @@ getRequest = (fromJust ∘ itrRequest) <$> getInteraction
 -- >                        ...
 -- >   , ...
 -- >   }
-getResourcePath ∷ Resource [Text]
+getResourcePath ∷ Resource [Strict.ByteString]
 getResourcePath = (fromJust ∘ itrResourcePath) <$> getInteraction
 
 -- |@'getChunk' n@ attempts to read a chunk of request body up to @n@