Small whitespace fix.
commit927009408bbda1bfb6756f59e220cd6cfb5ed833
authorAndres Loeh <andres@well-typed.com>
dateThu 28 Jan 2016, 11:08 (11 years ago)
parent2934bac
servant-server/src/Servant/Server/Internal/RoutingApplication.hs+2−2
@@ -240,9 +240,9 @@ runAction :: Delayed (ExceptT ServantErr IO a)
240240 -> IO r
241241runAction action respond k = runDelayed action >>= go >>= respond
242242 where
243− go (Fail e) = return $ Fail e
243+ go (Fail e) = return $ Fail e
244244 go (FailFatal e) = return $ FailFatal e
245− go (Route a) = do
245+ go (Route a) = do
246246 e <- runExceptT a
247247 case e of
248248 Left err -> return . Route $ responseServantErr err