purescript 0.1.2 → 0.1.3

raw patch · 3 files changed

+3/−3 lines, 3 files

Files

• purescript.cabal +1/−1
• src/Language/PureScript/Parser/Types.hs +1/−1
• src/Language/PureScript/Pretty/Types.hs +1/−1

@@ -1,5 +1,5 @@ name: purescript-version: 0.1.2+version: 0.1.3 cabal-version: >=1.8 build-type: Simple license: MIT

@@ -84,7 +84,7 @@ parseRowEnding = P.option REmpty (RowVar <$> (lexeme (indented *> P.char '|') *> indented *> identifier))  parseRow :: P.Parsec String ParseState Row-parseRow = (fromList <$> (parseNameAndType `P.sepBy` (indented *> semi)) <*> parseRowEnding) P.<?> "row"+parseRow = (fromList <$> (parseNameAndType `P.sepBy` (indented *> comma)) <*> parseRowEnding) P.<?> "row"   where   fromList :: [(String, Type)] -> Row -> Row   fromList [] r = r

@@ -47,7 +47,7 @@   match _ = Nothing  prettyPrintRow :: Row -> String-prettyPrintRow = (\(tys, tail) -> intercalate "; " (map (uncurry nameAndTypeToPs) tys) ++ tailToPs tail) . toList []+prettyPrintRow = (\(tys, tail) -> intercalate ", " (map (uncurry nameAndTypeToPs) tys) ++ tailToPs tail) . toList []   where   nameAndTypeToPs :: String -> Type -> String   nameAndTypeToPs name ty = name ++ " :: " ++ prettyPrintType ty