From ee3788d35edd1a6107a2b5e0c1d7172234f7a640 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Fri, 24 Jul 2020 22:39:29 +0200
Subject: Define builtins in backend

---
 parser/CC/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser/CC')

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
 
-- 
cgit v1.2.3-70-g09d2