snoyberg/keter
1
1
Fork 0
mirror of https://github.com/snoyberg/keter.git synced 2024-12-15 01:23:09 +03:00
Code Issues Projects Releases Wiki Activity

Update Middleware.hs

Browse Source 
uncomment AddHeaders
This commit is contained in:
tolysz 2014-12-16 09:04:52 +00:00
parent 276b93a36a
commit 2f479a768d
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Keter/Types/Middleware.hs
View File

@ -16,10 +16,9 @@ import Network.Wai.Middleware.AcceptOverride (acceptOverride)
import Network.Wai.Middleware.Autohead (autohead)
import Network.Wai.Middleware.Jsonp (jsonp)
import Network.Wai.Middleware.Local (local)
-- import Network.Wai.Middleware.AddHeaders (addHeaders)
import Network.Wai.Middleware.AddHeaders (addHeaders)
import Network.Wai.Middleware.MethodOverride (methodOverride)
import Network.Wai.Middleware.MethodOverridePost (methodOverridePost)
import Network.Wai.Middleware.HttpAuth (basicAuth)
import Data.ByteString.Lazy as L (ByteString)
@ -94,9 +93,7 @@ toMiddleware (Local s c ) = local ( responseLBS (toEnum s) [] c )
toMiddleware MethodOverride = methodOverride
toMiddleware MethodOverridePost = methodOverridePost
toMiddleware (BasicAuth realm cred) = basicAuth (\u p -> return $ maybe False (==p) $ lookup u cred ) (fromString realm)
-- XXX: fix it once we have it
toMiddleware (AddHeaders headers) = id -- fix it once we have it
-- addHeaders headers
toMiddleware (AddHeaders headers) = addHeaders headers
-- composeMiddleware :
composeMiddleware :: [Middleware] -> Middleware