summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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