Commit 1a8db7b9 authored by Milán Nagy's avatar Milán Nagy Committed by Vaibhav Sagar

Also support first-capital, as GHC does too.

parent ca239092
...@@ -248,6 +248,7 @@ parsePragma ('{':'-':'#':pragma) line = ...@@ -248,6 +248,7 @@ parsePragma ('{':'-':'#':pragma) line =
[] -> Pragma (PragmaUnsupported "") [] [] -> Pragma (PragmaUnsupported "") []
"LANGUAGE":xs -> Pragma PragmaLanguage xs "LANGUAGE":xs -> Pragma PragmaLanguage xs
"language":xs -> Pragma PragmaLanguage xs "language":xs -> Pragma PragmaLanguage xs
"Language":xs -> Pragma PragmaLanguage xs
x:xs -> Pragma (PragmaUnsupported x) xs x:xs -> Pragma (PragmaUnsupported x) xs
-- | Parse a directive of the form :directiveName. -- | Parse a directive of the form :directiveName.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment