Changeset 22988 for src/Pugs/CodeGen.hs

Timestamp:

11/12/08 09:59:51 (8 weeks ago)

Author:

audreyt

Message:

* GHC 6.10 support, part 1 of 3: Adjust for Map.lookup's new signature.

Files:

• src/Pugs/CodeGen.hs (modified) (1 diff)

src/Pugs/CodeGen.hs

@@ -88 +88 @@
             hPutStrLn stderr $ "*** The backend '" ++ s ++ "' is deprecated."
             hPutStrLn stderr $ "    Please use '" ++ key ++ "' instead."
-            Map.lookup key generators
-        key -> Map.lookup key generators
+            lookupGenerator key
+        key -> lookupGenerator key
+    where
+    lookupGenerator :: String -> IO Generator
+    lookupGenerator k = case Map.lookup k generators of
+        Just g -> return g
+        _      -> fail $ "Cannot find generator: " ++ k
 
 codeGen :: String -> FilePath -> Env -> IO String