slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

fix compiler warning

Browse Source
This commit is contained in:
Simon Michael 2012-05-16 06:40:52 +00:00
parent 294a350993
commit b6e5028071
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Tests.hs
View File

@ -51,7 +51,7 @@ runTests = liftM (fst . flip (,) 0) . runTestTT . flatTests
-- | Run all or just the matched unit tests until the first failure or -- | Run all or just the matched unit tests until the first failure or
-- error, returning the name of the problem test if any. -- error, returning the name of the problem test if any.
runTestsTillFailure :: CliOpts -> IO (Maybe String) runTestsTillFailure :: CliOpts -> IO (Maybe String)
runTestsTillFailure opts = undefined -- do runTestsTillFailure _ = undefined -- do
-- let ts = flatTests opts -- let ts = flatTests opts
-- results = liftM (fst . flip (,) 0) $ runTestTT $ -- results = liftM (fst . flip (,) 0) $ runTestTT $
-- firstproblem = find (\counts -> ) -- firstproblem = find (\counts -> )