[add set of ignored pragmas to not produce warnings for
John Meacham <john@repetae.net>**20120129115142
 Ignore-this: ae8474d367f6bf8239e0dbedd988e3a4
] hunk ./src/FrontEnd/Lexer.hs 22
+import Control.Monad
hunk ./src/FrontEnd/Lexer.hs 27
+import qualified Data.Set as Set
hunk ./src/FrontEnd/Lexer.hs 256
-                addWarn "unknown-pragma" $ "The pragma '" ++ pname ++ "' is unknown"
+                when (pname `Set.notMember` pragmas_ignored) $
+                    addWarn "unknown-pragma" $ "The pragma '" ++ pname ++ "' is unknown"
hunk ./src/FrontEnd/Lexer.hs 696
+pragmas_ignored = Set.fromList ["LANGUAGE", "OPTIONS_GHC", "UNPACK"]
+