diff options
Diffstat (limited to 'tests/CompileTest.hs')
| -rw-r--r-- | tests/CompileTest.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/CompileTest.hs b/tests/CompileTest.hs index bae5ad0..4ad5804 100644 --- a/tests/CompileTest.hs +++ b/tests/CompileTest.hs @@ -58,7 +58,7 @@ main = do let ?progs = defaultPrograms let ?cprogs = defaultCompPrograms let ?opts = defaultCompileOptions { oVerbose = True } - let ?verbose = True + let ?verbose = \level -> case level of 1 -> True; _ -> False args <- getArgs case args of |