summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2022-10-07 18:34:32 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2022-10-07 18:34:32 +0200
commitff745aeb332e29566814cec87090f1188bca83ec (patch)
tree7ad065b83f94540f0770b523d5269e276189d5fd
parente2a44c2118c62817e26eb88ed3ac4f292b908047 (diff)
Explicit export list from Main module
-rw-r--r--src/Main.hs6
1 files changed, 1 insertions, 5 deletions
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