cosmetic: format code to a bit easier to read
commitd8b55113140ee0798dbbf3b7850680c8fbc0c732
authorEvan Czaplicki <info@elm-lang.org>
dateThu 29 May 2014, 14:25 (12 years ago)
parent0bd70e7
compiler/Transform/Canonicalize.hs+3−4
@@ -143,10 +143,9 @@ addDecl moduleName env decl =
143143 _ -> _values env
144144 }
145145 where
146− throw err = Left [ P.vcat [ P.text $ "Error in type alias '" ++ name ++ "':"
147− , P.text err
148− ]
149− ]
146+ throw err =
147+ let msg = "Error in type alias '" ++ name ++ "':"
148+ in Left [ P.vcat [ P.text msg, P.text err ] ]
150149
151150 D.Port _ -> return env
152151