Fixes for PureScript 0.12

Author: ad-si

bower.json

@@ -15,14 +15,15 @@
     "test"
   ],
   "dependencies": {
-    "purescript-strings": "^3.0.0",
-    "purescript-arrays": "^4.0.1",
-    "purescript-math": "^2.0.0",
-    "purescript-unfoldable": "^3.0.0",
-    "purescript-integers": "^3.0.0"
-  }
-,
+    "purescript-arrays": "^5.0.0",
+    "purescript-effect": "^2.0.0",
+    "purescript-integers": "^4.0.0",
+    "purescript-math": "^2.1.1",
+    "purescript-prelude": "^4.1.0",
+    "purescript-strings": "^4.0.0",
+    "purescript-unfoldable": "^4.0.0"
+  },
   "devDependencies": {
-    "purescript-test-unit": "^11.0.0"
+    "purescript-test-unit": "^14.0.0"
   }
 }

src/Text/Format.purs

@@ -18,15 +18,16 @@ import Control.Alt ((<|>))
 import Data.Unfoldable (replicate)
 import Data.Int as Int
 import Data.Maybe (Maybe(..), fromMaybe)
-import Data.Monoid (class Monoid)
-import Data.String (length, fromCharArray, dropWhile, singleton, replace, Pattern(..), Replacement(..))
+import Data.String (length, dropWhile, replace, Pattern(..), Replacement(..))
+import Data.String.CodePoints (singleton, fromCodePointArray, codePointFromChar)
 import Math (round, pow, abs)
 
 -- | Pad a string on the left up to a given maximum length. The padding
 -- | character can be specified.
 padLeft :: Char -> Int -> String -> String
 padLeft c len str = prefix <> str
-  where prefix = fromCharArray (replicate (len - length str) c)
+  where prefix = fromCodePointArray $
+          map codePointFromChar (replicate (len - length str) c)
 
 type PropertiesRecord =
   { width :: Maybe Int
@@ -153,13 +154,13 @@ instance formatNumber :: Format Number where
      numAbsStr'' = show (abs num)
      numAbsStr' = case rec.decimalMark of
                     Nothing -> numAbsStr''
-                    Just d -> replace (Pattern ".") (Replacement (singleton d)) numAbsStr''
+                    Just d -> replace (Pattern ".") (Replacement (singleton $ codePointFromChar d)) numAbsStr''
      numAbsStr = case rec.precision of
                    Nothing -> numAbsStr'
                    Just p -> numAbsStr' <> paddedZeros p
-     usedDelimiter = fromMaybe '.' rec.decimalMark
+     usedDelimiter = codePointFromChar $ fromMaybe '.' rec.decimalMark
      paddedZeros p = let d = length (dropWhile (_ /= usedDelimiter) numAbsStr') - 1
-                     in fromCharArray (replicate (p - d) '0')
+                     in fromCodePointArray $ map codePointFromChar (replicate (p - d) '0')
      numSgn = if nonNegative
                 then (if isSigned then "+" else "")
                 else "-"

test/Main.purs

@@ -1,22 +1,15 @@
 module Test.Main where
 
-import Prelude
-
-import Data.Monoid (mempty)
+import Prelude (Unit, discard, mempty, negate, ($), (*), (<>), (==))
 import Math (pi)
-
+import Effect (Effect)
 import Text.Format (width, signed, zeroFill, precision, decimalMark, format)
-
-import Control.Monad.Eff (Eff)
-import Control.Monad.Eff.Console (CONSOLE)
-import Control.Monad.Aff.AVar (AVAR)
-
 import Test.Unit (test)
 import Test.Unit.Main (runTest)
-import Test.Unit.Console (TESTOUTPUT)
 import Test.Unit.Assert (assert, equal)
 
-main :: Eff (console :: CONSOLE, testOutput :: TESTOUTPUT, avar :: AVAR) Unit
+
+main :: Effect Unit
 main = runTest do
   test "Semigroup instance" do
     assert "right option should take precendence" $