@@ -323,7 +323,7 @@ rowToPs = (\(tys, tail) -> intercalate "; " (map (uncurry nameAndTypeToPs) tys)
323323 nameAndTypeToPs name ty = name ++ " :: " ++ typeToPs ty
324324 tailToPs :: Row -> String
325325 tailToPs REmpty = ""
326− tailToPs (RowVar var) = "| " ++ var
326+ tailToPs (RowVar var) = " | " ++ var
327327 toList :: Row -> ([(String, Type)], Row)
328328 toList (RCons name ty row) = let (tys, rest) = toList row
329329 in ((name, ty):tys, rest)