diff --git a/src/Language/Marlowe/Runtime/Types/LazyFeed.hs b/src/Language/Marlowe/Runtime/Types/LazyFeed.hs index eacc82c..deb1e42 100644 --- a/src/Language/Marlowe/Runtime/Types/LazyFeed.hs +++ b/src/Language/Marlowe/Runtime/Types/LazyFeed.hs @@ -23,9 +23,6 @@ fromExceptTIO :: ExceptT String IO (LazyFeed a) -> LazyFeed a fromExceptTIO h = fromIO $ do x <- runExceptT h return $ either errorToLazyFeed id x - - - errorToLazyFeed :: String -> LazyFeed a errorToLazyFeed str = LazyFeed $ do return $ ErrorReading str