From aeceaafdab661f6e0d63ef9695396bc7dfb8619d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 1 Mar 2016 09:57:06 +0100
Subject: fixed case insensitive read never parsing

---
 tprint/src/Options/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tprint/src')

diff --git a/tprint/src/Options/Utils.hs b/tprint/src/Options/Utils.hs
index 2bb7fc6..b3561e9 100644
--- a/tprint/src/Options/Utils.hs
+++ b/tprint/src/Options/Utils.hs
@@ -28,7 +28,7 @@ rCI = eitherReader rRep'
       []  -> Left $ "Could not parse `" ++ str ++ "'"
       [x] -> Right x
       xs  -> Left $ "Ambiguous parse for `" ++ str ++ "': " ++ show xs
-    cases []     = []
+    cases []     = [[]]
     cases (c:cs) = [(c':cs') | c' <- [toLower c, toUpper c], cs' <- cases cs]
 
 rTime :: ReadM UTCTime
-- 
cgit v1.2.3