git.iko.soy/typeable/servant
on master help sign in
Small whitespace fix.
9270094Andres Loeh
servant-server/src/Servant/Server/Internal/RoutingApplication.hs+2−2
compare with master
unifiedsplit
@@ -240,9 +240,9 @@ runAction :: Delayed (ExceptT ServantErr IO a)
240 -> IO r
240 -> IO r
241runAction action respond k = runDelayed action >>= go >>= respond
241runAction action respond k = runDelayed action >>= go >>= respond
242 where
242 where
243− go (Fail e) = return $ Fail e
243+ go (Fail e) = return $ Fail e
244 go (FailFatal e) = return $ FailFatal e
244 go (FailFatal e) = return $ FailFatal e
245− go (Route a) = do
245+ go (Route a) = do
246 e <- runExceptT a
246 e <- runExceptT a
247 case e of
247 case e of
248 Left err -> return . Route $ responseServantErr err
248 Left err -> return . Route $ responseServantErr err