@@ -65,7 +65,7 @@ instance (MonadIO m, a' ~ X, a ~ (), b' ~ (), r ~ ())
65 fromSourceIO src = M $ liftIO $ S.unSourceT src (return . go) where
65 fromSourceIO src = M $ liftIO $ S.unSourceT src (return . go) where
66 go :: S.StepT IO b -> Proxy X () () b m ()
66 go :: S.StepT IO b -> Proxy X () () b m ()
67 go S.Stop = Pure ()
67 go S.Stop = Pure ()
68− go (S.Error err) = M (fail err)
68+ go (S.Error err) = M (liftIO (fail err))
69 go (S.Skip s) = go s -- drives
69 go (S.Skip s) = go s -- drives
70 go (S.Effect ms) = M (liftIO (fmap go ms))
70 go (S.Effect ms) = M (liftIO (fmap go ms))
71 go (S.Yield x s) = Respond x (const (go s))
71 go (S.Yield x s) = Respond x (const (go s))