From ff745aeb332e29566814cec87090f1188bca83ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Fri, 7 Oct 2022 18:34:32 +0200 Subject: Explicit export list from Main module --- src/Main.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index 4ceaac4..fda0bb9 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,4 +1,4 @@ -module Main where +module Main (main) where import Control.Applicative import Control.Concurrent @@ -301,10 +301,6 @@ testStepGuard sline expr = do x <- eval expr when (not x) $ exprFailed (T.pack "guard") sline Nothing expr -allM :: Monad m => [a] -> (a -> m Bool) -> m Bool -allM (x:xs) p = p x >>= \case True -> allM xs p; False -> return False -allM [] _ = return True - finally :: MonadError e m => m a -> m b -> m a finally act handler = do x <- act `catchError` \e -> handler >> throwError e -- cgit v1.2.3