fix compiler warning

2012-05-16 06:40:52 +00:00 · 2012-05-16 06:40:52 +00:00 · b6e5028071
commit b6e5028071
parent 294a350993
1 changed files with 1 additions and 1 deletions
--- a/hledger/Hledger/Cli/Tests.hs
+++ b/hledger/Hledger/Cli/Tests.hs
@ -51,7 +51,7 @@ runTests = liftM (fst . flip (,) 0) . runTestTT . flatTests
 -- | Run all or just the matched unit tests until the first failure or
 -- error, returning the name of the problem test if any.
 runTestsTillFailure :: CliOpts -> IO (Maybe String)
-runTestsTillFailure opts = undefined -- do
+runTestsTillFailure _ = undefined -- do
  -- let ts = flatTests opts
  --     results = liftM (fst . flip (,) 0) $ runTestTT $
  --     firstproblem = find (\counts -> )