Fix possibility of calling `maximum` on empty lists
commitebcaad0004a9b71b44b69eee86be8a82db824599
authorEvan Czaplicki <info@elm-lang.org>
dateFri 26 Jul 2013, 19:39 (13 years ago)
parenteb1e353
compiler/Type/Solve.hs+2−1
@@ -77,7 +77,8 @@ adjustRank youngMark visitedMark groupRank variable =
7777 EmptyRecord1 -> return outermostRank
7878 Record1 fields extension -> do
7979 ranks <- mapM adjust (concat (Map.elems fields))
80− max (maximum ranks) `liftM` adjust extension
80+ rnk <- adjust extension
81+ return . maximum $ rnk : ranks
8182 liftIO $ UF.setDescriptor variable (desc { mark = visitedMark, rank = rank' })
8283 return rank'
8384