Remove unnecessary let
commitfa6377ff1be72b1a8af0c0b6b0afe17ca02a09db
authorJoeyEremondi <joey@eremondi.com>
dateFri 28 Aug 2015, 16:14 (11 years ago)
parent971b7d5
src/Canonicalize/Declaration.hs+2−4
@@ -91,7 +91,5 @@ buildFunction body@(A.A ann _) vars =
9191
9292definition :: String -> Canonical.Expr -> R.Region -> T.Canonical -> Canonical.Def
9393definition name expr@(A.A ann _) region tipe =
94− let
95− facts = Canonical.dummyFacts
96− in
97− Canonical.Definition facts (A.A ann (P.Var name)) expr (Just (A.A region tipe))
94+ Canonical.Definition Canonical.dummyFacts
95+ (A.A ann (P.Var name)) expr (Just (A.A region tipe))