[add basic support for the LANGUAGE pragma
John Meacham <john@repetae.net>**20080323031324] hunk ./Ho/Build.hs 14
+import Data.Char
hunk ./Ho/Build.hs 535
+langmap = [
+    "m4" ==> "m4",
+    "cpp" ==> "cpp",
+    "foreignfunctioninterface" ==> "ffi",
+    "noimplicitprelude" ==> "--noprelude",
+    "unboxedtuples" ==> "unboxed-tuples"
+    ] where x ==> y = (x,if head y == '-' then y else "-f" ++ y)
+
hunk ./Ho/Build.hs 551
-            opts = opts' ++ [ "--noprelude" | ("NOPRELUDE",_) <- popts]
-            langs = concat [ words as | ("LANGUAGE",as) <- popts ]
+            opts = opts' ++ [ "--noprelude" | ("NOPRELUDE",_) <- popts] ++ langs
+            langs = catMaybes $ map (flip lookup langmap) $ concat [ words (map (\c -> if c == ',' then ' ' else toLower c) as) | ("LANGUAGE",as) <- popts ]