From b6e502807188b33f375942b4cebf508eb0e15fb1 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 16 May 2012 06:40:52 +0000
Subject: [PATCH] fix compiler warning

---
 hledger/Hledger/Cli/Tests.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger/Hledger/Cli/Tests.hs b/hledger/Hledger/Cli/Tests.hs
index eec325cc1..9b799e605 100644
--- 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 -> )