diff options
Diffstat (limited to 'parser/CC/Parser.hs')
| -rw-r--r-- | parser/CC/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parser/CC/Parser.hs b/parser/CC/Parser.hs index 76f0b68..3183dea 100644 --- a/parser/CC/Parser.hs +++ b/parser/CC/Parser.hs @@ -12,7 +12,7 @@ import CC.Pretty type Parser a = Parsec String () a runPass :: Context -> RawString -> Either (PrettyShow ParseError) Program -runPass (Context path) (RawString src) = fmapLeft PrettyShow (parseProgram path src) +runPass (Context path _) (RawString src) = fmapLeft PrettyShow (parseProgram path src) where fmapLeft f (Left x) = Left (f x) fmapLeft _ (Right x) = Right x |