From 09f452ba077cff98376146b6a8a14a80fd448067 Mon Sep 17 00:00:00 2001 From: Oleg Grenrus Date: Wed, 11 Sep 2019 10:42:03 +0300 Subject: [PATCH] We use fail in servant-pipes --- servant-pipes/src/Servant/Pipes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-pipes/src/Servant/Pipes.hs b/servant-pipes/src/Servant/Pipes.hs index 52f70b25..d3dad447 100644 --- a/servant-pipes/src/Servant/Pipes.hs +++ b/servant-pipes/src/Servant/Pipes.hs @@ -65,7 +65,7 @@ instance (MonadIO m, a' ~ X, a ~ (), b' ~ (), r ~ ()) fromSourceIO src = M $ liftIO $ S.unSourceT src (return . go) where go :: S.StepT IO b -> Proxy X () () b m () go S.Stop = Pure () - go (S.Error err) = M (fail err) + go (S.Error err) = M (liftIO (fail err)) go (S.Skip s) = go s -- drives go (S.Effect ms) = M (liftIO (fmap go ms)) go (S.Yield x s) = Respond x (const (go s))