aboutsummaryrefslogtreecommitdiff
path: root/parser
diff options
context:
space:
mode:
authorTom Smeding <tom.smeding@gmail.com>2020-07-24 22:39:29 +0200
committerTom Smeding <tom.smeding@gmail.com>2020-07-24 22:39:29 +0200
commitee3788d35edd1a6107a2b5e0c1d7172234f7a640 (patch)
treed1e70f1a8d1cebdc1125013db6ceb9dfa23ae502 /parser
parent96c29e2a5e2c97d2c40c46222d4593c366de953e (diff)
Define builtins in backend
Diffstat (limited to 'parser')
-rw-r--r--parser/CC/Parser.hs2
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