src/IHaskell/Eval/Parser.hs: support lowercase 'language' pragmas

ca239092 · Vaibhav Sagar · 8b26d126 · ca239092
Commit ca239092 authored Apr 25, 2018 by Vaibhav Sagar
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

Parser.hs src/IHaskell/Eval/Parser.hs +1 -0

No files found.
--- a/src/IHaskell/Eval/Parser.hs
+++ b/src/IHaskell/Eval/Parser.hs
@@ -247,6 +247,7 @@ parsePragma ('{':'-':'#':pragma) line =
    --empty string pragmas are unsupported
    [] -> Pragma (PragmaUnsupported "") []
    "LANGUAGE":xs -> Pragma PragmaLanguage xs
+    "language":xs -> Pragma PragmaLanguage xs
    x:xs -> Pragma (PragmaUnsupported x) xs

 -- | Parse a directive of the form :directiveName.