wip nix

tests/src/Options.idr

@@ -30,11 +30,15 @@ getArgs1 : IO (List String)
 getArgs1 =
   case !getArgs of
        _ :: args => pure args
-       []        => die "expecting getArgs to start with exe name"
+       []        => do
+         putStrLn "expecting getArgs to start with exe name"
+         exitFailure
 
 export
 getTestOpts : IO Options
 getTestOpts =
   case getOpt Permute opts !getArgs1 of
        MkResult opts [] [] [] => pure $ makeOpts opts
-       res => die $ unlines $ res.errors ++ [usageInfo "quox test suite" opts]
+       res => do
+         traverse_ putStrLn $ res.errors ++ [usageInfo "quox test suite" opts]
+         exitFailure

tests/src/TAP.idr

@@ -5,6 +5,7 @@ import public Quox.Error
 
 import Data.String
 import Data.List.Elem
+import Data.SnocList
 import Control.Monad.Reader
 import Control.Monad.State
 import System

tests/src/Tests.idr

@@ -17,5 +17,5 @@ main = do
   go <- case opts.tapVersion of
     "13" => pure TAP.mainFlat
     "14" => pure TAP.main
-    _    => die "unrecognised TAP version; use 13 or 14"
+    _    => do putStrLn "unrecognised TAP version; use 13 or 14"; exitFailure
   go allTests