on master help sign in
cosmetic: format code to a bit easier to read
d8b5511Evan Czaplicki
compiler/Transform/Canonicalize.hs+3−4
@@ -143,10 +143,9 @@ addDecl moduleName env decl =
143 _ -> _values env
143 _ -> _values env
144 }
144 }
145 where
145 where
146+ throw err =
146− throw err = Left [ P.vcat [ P.text $ "Error in type alias '" ++ name ++ "':"
147+ let msg = "Error in type alias '" ++ name ++ "':"
147− , P.text err
148+ in Left [ P.vcat [ P.text msg, P.text err ] ]
148− ]
149− ]
150
149
151 D.Port _ -> return env
150 D.Port _ -> return env
152
151