Use dummyFacts constant
commit971b7d589b81ae6b2e4876d6d656346088b48cc5
authorJoeyEremondi <joey@eremondi.com>
dateFri 28 Aug 2015, 12:45 (11 years ago)
parentb0beee4
src/Canonicalize/Declaration.hs+1−1
@@ -92,6 +92,6 @@ buildFunction body@(A.A ann _) vars =
9292definition :: String -> Canonical.Expr -> R.Region -> T.Canonical -> Canonical.Def
9393definition name expr@(A.A ann _) region tipe =
9494 let
95− facts = Canonical.Facts (error "Sort needs to fill in refgraph")
95+ facts = Canonical.dummyFacts
9696 in
9797 Canonical.Definition facts (A.A ann (P.Var name)) expr (Just (A.A region tipe))