From: Ian Lynagh <igloo@earth.li>
Date: Wed, 23 Jul 2008 18:21:56 +0000 (+0000)
Subject: If the extension is not .lhs, runghc now treats it as .hs; fixes trac #1232
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c0909f1e26589478f44650e16cbf8c0ffdbf2112

If the extension is not .lhs, runghc now treats it as .hs; fixes trac #1232
---

diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs
index 84675bc..5053858 100644
--- a/utils/runghc/runghc.hs
+++ b/utils/runghc/runghc.hs
@@ -76,9 +76,14 @@ doIt ghc args = do
                  hClose h
                  doIt ghc (ghc_args ++ [filename])
         filename : prog_args -> do
-            let c1 = ":set prog " ++ show filename
+            let xflag = if takeExtension filename == ".lhs"
+                        then []
+                        else ["-x", "hs"]
+                c1 = ":set prog " ++ show filename
                 c2 = ":main " ++ show prog_args
-            res <- rawSystem ghc (["-ignore-dot-ghci"] ++ ghc_args ++
+            res <- rawSystem ghc (["-ignore-dot-ghci"] ++
+                                  xflag ++
+                                  ghc_args ++
                                   [ "-e", c1, "-e", c2, filename])
             exitWith res