only emit {-# INCLUDE #-} pragmas for GHC < 6.10
authorSimon Marlow <marlowsd@gmail.com>
Sun, 2 Aug 2009 19:03:45 +0000 (19:03 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Sun, 2 Aug 2009 19:03:45 +0000 (19:03 +0000)
Main.hs

diff --git a/Main.hs b/Main.hs
index 4f56482..68077cc 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -745,7 +745,7 @@ outHeaderHs flags inH toks =
        "#if __GLASGOW_HASKELL__ && __GLASGOW_HASKELL__ < 603\n" ++
        "    printf (\"{-# OPTIONS -#include %s #-}\\n\", \""++
                   showCString s++"\");\n"++
-       "#else\n"++
+       "#elif __GLASGOW_HASKELL__ < 610\n"++
        "    printf (\"{-# INCLUDE %s #-}\\n\", \""++
                   showCString s++"\");\n"++
        "#endif\n"