Fix __GLASGOW_HASKELL_LLVM__ #define
authorAustin Seipp <austin@well-typed.com>
Tue, 7 Jan 2014 06:59:17 +0000 (00:59 -0600)
committerAustin Seipp <austin@well-typed.com>
Tue, 7 Jan 2014 06:59:17 +0000 (00:59 -0600)
(It improperly used 'show' on the Maybe Int, not the Int.)

Authored-by: Karel Gardas <karel.gardas@centrum.cz>
Signed-off-by: Austin Seipp <austin@well-typed.com>
compiler/main/DriverPipeline.hs

index 337778e..f789d44 100644 (file)
@@ -2086,7 +2086,9 @@ doCpp dflags raw input_fn output_fn = do
 getBackendDefs :: DynFlags -> IO [String]
 getBackendDefs dflags | hscTarget dflags == HscLlvm = do
     llvmVer <- figureLlvmVersion dflags
-    return [ "-D__GLASGOW_HASKELL_LLVM__="++show llvmVer ]
+    return $ case llvmVer of
+               Just n -> [ "-D__GLASGOW_HASKELL_LLVM__="++show n ]
+               _      -> []
 
 getBackendDefs _ =
     return []