X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FInternal.hs;h=1d01a8258751af7a73a4a17ee26a0dd41fd17153;hp=418a330f5c7bca2d6bb05a2cc9a9d2cbaa8645a7;hb=7bc27fc;hpb=7843dbf537dfefa583a8ee55b2a31a5e8a9c7c37 diff --git a/Network/HTTP/Lucu/Resource/Internal.hs b/Network/HTTP/Lucu/Resource/Internal.hs index 418a330..1d01a82 100644 --- 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@