diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2020-07-24 22:39:29 +0200 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2020-07-24 22:39:29 +0200 |
| commit | ee3788d35edd1a6107a2b5e0c1d7172234f7a640 (patch) | |
| tree | d1e70f1a8d1cebdc1125013db6ceb9dfa23ae502 /parser/CC/Parser.hs | |
| parent | 96c29e2a5e2c97d2c40c46222d4593c366de953e (diff) | |
Define builtins in backend
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 |