Explicit export list from Main module

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