From ed63476ad7bfa30980f840ca7ec94ffc3c73bbdb Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 19 May 2009 13:28:39 +0000
Subject: [PATCH] Fixed strings passed on the command-line for defines

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

diff --git a/Main.hs b/Main.hs
index 4c40a73..3ad0186 100644
--- a/Main.hs
+++ b/Main.hs
@@ -143,7 +143,7 @@ optDefine s ps = return $ ps { csDefinitions = Map.insert name
   ( case filter (null . snd) $ reads (safeTail val) of
       ((n::Integer, _) : _)   -> PreprocInt $ show n
       [] | null val  -> PreprocNothing
-         | otherwise -> PreprocString $ safeTail val
+         | otherwise -> PreprocString $ "\"" ++ safeTail val ++ "\""
   )
   (csDefinitions ps) }  
   where