diff options
| -rw-r--r-- | Alpha.hs | 1 | ||||
| -rw-r--r-- | Biz/Cli.hs | 2 | ||||
| -rw-r--r-- | Biz/Test.hs | 1 |
3 files changed, 2 insertions, 2 deletions
@@ -213,6 +213,7 @@ capitalize str = (Char.toUpper <| List.head str) : (Char.toLower </ List.tail st lowercase :: String -> String lowercase str = [Char.toLower c | c <- str] +{-# WARNING require "'require' remains in code" #-} require :: Text -> Maybe a -> a require _ (Just x) = x require s Nothing = panic <| s <> " not found" @@ -18,9 +18,9 @@ module Biz.Cli where import Alpha +import qualified Biz.Test as Test import qualified System.Console.Docopt as Docopt import qualified System.Environment as Environment -import qualified Biz.Test as Test data Plan cfg = Plan { help :: Docopt.Docopt, diff --git a/Biz/Test.hs b/Biz/Test.hs index 994a7ce..fefa85d 100644 --- a/Biz/Test.hs +++ b/Biz/Test.hs @@ -35,7 +35,6 @@ run tree = do exitFailure Just act -> act +> \ok -> if ok then exitSuccess else exitFailure - group :: Tasty.TestName -> [Tasty.TestTree] -> Tasty.TestTree group = Tasty.testGroup |