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

We use fail in servant-pipes

Browse source
This commit is contained in:
Oleg Grenrus 2019-09-11 10:42:03 +03:00
parent 598dc79492
commit 87247211e6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-pipes/src/Servant/Pipes.hs
View file

@ -65,7 +65,7 @@ instance (MonadIO m, a' ~ X, a ~ (), b' ~ (), r ~ ())
fromSourceIO src = M $ liftIO $ S.unSourceT src (return . go) where fromSourceIO src = M $ liftIO $ S.unSourceT src (return . go) where
go :: S.StepT IO b -> Proxy X () () b m () go :: S.StepT IO b -> Proxy X () () b m ()
go S.Stop = Pure () 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.Skip s) = go s -- drives
go (S.Effect ms) = M (liftIO (fmap go ms)) go (S.Effect ms) = M (liftIO (fmap go ms))
go (S.Yield x s) = Respond x (const (go s)) go (S.Yield x s) = Respond x (const (go s))