From fb1186dabda26a2eed55ec1e7bd2ff4b1a8f3e50 Mon Sep 17 00:00:00 2001
From: Ben Boeckel <mathstuf@gmail.com>
Date: Sun, 11 Mar 2012 13:55:34 -0400
Subject: Add parentheses

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

diff --git a/src/Main.hs b/src/Main.hs
index 38975bc..4c3f351 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -172,6 +172,6 @@ doOpts conf (o:oo) =
     where readCom c str =
               case readStr str of
                 [x] -> Right x
-                _   -> Left "xmobar: cannot read list of commands specified with the -" ++ c:" option\n"
+                _   -> Left ("xmobar: cannot read list of commands specified with the -" ++ c:" option\n")
           readStr str =
               [x | (x,t) <- reads str, ("","") <- lex t]
-- 
cgit v1.2.3