From 8e6922c57c8750fcdaee6cacaff31e7a5712905b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 6 Mar 2014 17:49:52 -0800
Subject: [PATCH] add: fix over-zealous cleanup caught by hydra

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

diff --git a/hledger/Hledger/Cli/Add.hs b/hledger/Hledger/Cli/Add.hs
index 6296c25db..3539a0683 100644
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@@ -303,6 +303,7 @@ amountCompleter = completer []
 completer :: [String] -> String -> CompletionFunc IO
 completer completions def = completeWord Nothing "" completionsFor
     where
+      simpleCompletion' s = (simpleCompletion s){isFinished=False}
       completionsFor "" = return [simpleCompletion' def]
       completionsFor i  = return (map simpleCompletion' ciprefixmatches)
           where