eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Small whitespace fix.

Browse source
This commit is contained in:
Andres Loeh 2016-01-28 11:08:22 +01:00
parent 2934bac40c
commit 927009408b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-server/src/Servant/Server/Internal/RoutingApplication.hs
View file

@ -240,9 +240,9 @@ runAction :: Delayed (ExceptT ServantErr IO a)
-> IO r -> IO r
runAction action respond k = runDelayed action >>= go >>= respond runAction action respond k = runDelayed action >>= go >>= respond
where where
go (Fail e) = return $ Fail e go (Fail e) = return $ Fail e
go (FailFatal e) = return $ FailFatal e go (FailFatal e) = return $ FailFatal e
go (Route a) = do go (Route a) = do
e <- runExceptT a e <- runExceptT a
case e of case e of
Left err -> return . Route $ responseServantErr err Left err -> return . Route $ responseServantErr err