X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource.hs;h=3bc75246cca62f8e9ba6b8be59d8a01d53aefd70;hb=9bb89434103e9a22f100d6ecb7e65a5d461e0454;hp=15b211fba6d17872dc6201a55d8a69bdfd42c326;hpb=8bdd1da1ee1f3e453dbe2bce246618e12e26d30c;p=Lucu.git diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs index 15b211f..3bc7524 100644 --- a/Network/HTTP/Lucu/Resource.hs +++ b/Network/HTTP/Lucu/Resource.hs @@ -1,3 +1,7 @@ +{-# LANGUAGE + UnboxedTuples + , UnicodeSyntax + #-} {-# OPTIONS_HADDOCK prune #-} -- |This is the Resource Monad; monadic actions to define the behavior @@ -135,7 +139,6 @@ module Network.HTTP.Lucu.Resource , driftTo ) where - import Control.Concurrent.STM import Control.Monad.Reader import qualified Data.ByteString as Strict (ByteString) @@ -157,7 +160,6 @@ import qualified Network.HTTP.Lucu.Headers as H import Network.HTTP.Lucu.HttpVersion import Network.HTTP.Lucu.Interaction import Network.HTTP.Lucu.MultipartForm -import Network.HTTP.Lucu.Parser import Network.HTTP.Lucu.Postprocess import Network.HTTP.Lucu.Request import Network.HTTP.Lucu.Response