on master help sign in
cosmetic: move an expression down a line
commit7ea6bd82e71771f39e203e0c4deb173b16aef77d authorEvan Czaplicki <evancz@users.noreply.github.com> dateThu 19 Apr 2018, 12:30 (9 years ago) parent11c9e15
1 file changed+2−1
compiler/src/Type/Error.hs+2−1
compiler/src/Type/Error.hs+2−1
@@ -231,7 +231,8 @@ diff localizer ctx tipe1 tipe2 =
231231 (Nothing, Just z ) -> Different [] [D.dullyellow (toDoc localizer RT.None z)] Bag.empty
232232 (Just c , Just z ) -> (:[]) <$> diff localizer RT.None c z
233233
234− (Record fields1 ext1, Record fields2 ext2) -> diffRecord localizer fields1 ext1 fields2 ext2
234+ (Record fields1 ext1, Record fields2 ext2) ->
235+ diffRecord localizer fields1 ext1 fields2 ext2
235236
236237 (Type home1 name1 args1, Type home2 name2 args2) | home1 == home2 && name1 == name2 ->
237238 RT.apply ctx (nameToDoc localizer home1 name1) <$>