From 98509d4bbc9128642476523d2964f282dcacfa71 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 16 Aug 2011 22:23:05 +0000
Subject: [PATCH] fix a bogus error with -f and no command

---
 hledger/Hledger/Cli/Options.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Options.hs b/hledger/Hledger/Cli/Options.hs
index 873b3a565..198af7bf2 100644
--- a/hledger/Hledger/Cli/Options.hs
+++ b/hledger/Hledger/Cli/Options.hs
@@ -316,8 +316,8 @@ toCliOpts rawopts = do
 
 -- workaround for http://code.google.com/p/ndmitchell/issues/detail?id=457
 -- just handles commonest cases
-moveFlagsAfterCommand ("-f":f:cmd:rest) = cmd:"-f":f:rest
-moveFlagsAfterCommand (first:cmd:rest) | "-f" `isPrefixOf` first = cmd:first:rest
+moveFlagsAfterCommand (fflagandval@('-':'f':_:_):cmd:rest) = cmd:fflagandval:rest
+moveFlagsAfterCommand ("-f":fval:cmd:rest) = cmd:"-f":fval:rest
 moveFlagsAfterCommand as = as
 
 -- | Convert possibly encoded option values to regular unicode strings.