Minor cosmetic change
commit2b2bc087e4c434a73ef050d64d0082f150e6fcc3
authorEvan Czaplicki <info@elm-lang.org>
dateFri 26 Jul 2013, 11:40 (13 years ago)
parentff67c66
compiler/Type/Constrain/Expression.hs+1−1
@@ -50,7 +50,7 @@ test str =
5050
5151constrain :: Env.Environment -> LExpr a b -> Type -> IO TypeConstraint
5252constrain env (L _ _ expr) tipe =
53− let list t = TermN (App1 (Env.get env Env.types "_List") t) in
53+ let list t = Env.get env Env.types "_List" <| t in
5454 case expr of
5555 Literal lit -> Literal.constrain env lit tipe
5656