error message is more like Jordans suggestion

purescript · Dec 4, 2022 · cd79ba0 · cd79ba0
1 parent ce2fa58
commit cd79ba0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Language/PureScript/Pretty/Types.hs b/src/Language/PureScript/Pretty/Types.hs
@@ -163,9 +163,9 @@ prettyPrintRowDiffWith tro open close labels =
       format prefix ty = text ("," ++ prefix ++ T.unpack (prettyPrintLabel name) ++ " " ++ doubleColon ++ " ") <> typeAsBox' ty
     in
       vcat left $
-        catMaybes $
-        [ fmap (format "  ") maybeTy1 
-        , fmap (format "    ") maybeTy2
+        [ fromMaybe (text "<no row>") $ fmap (format " ") maybeTy1
+        , fromMaybe (text "<no row>") $ fmap (format " ") maybeTy2
+        , text ""
         ]