⬆️ purescript@0.9.1

Author: bamboo

bower.json

@@ -21,13 +21,13 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-eff": "^0.1.2",
-    "purescript-generics": "^0.7.2",
-    "purescript-argonaut-codecs": "^0.6.1"
+    "purescript-eff": "1.0.0",
+    "purescript-generics": "1.0.0",
+    "purescript-argonaut-codecs": "1.0.0"
   },
   "devDependencies": {
-    "purescript-console": "^0.1.1",
-    "purescript-spec": "^0.7.4"
+    "purescript-console": "1.0.0",
+    "purescript-spec": "0.8.0"
   },
   "version": "0.2.1"
 }

package.json

@@ -5,7 +5,7 @@
     "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^8.1.1",
-    "purescript": "^0.8.4"
+    "pulp": "9.0.1",
+    "purescript": "0.9.1"
   }
 }

src/Electron/Options.purs

@@ -2,12 +2,13 @@ module Electron.Options
   ( encodeOptions
   ) where
 
-import Prelude ((+), (++), (>>>), unit, (#), map)
+import Prelude ((+), (>>>), unit, (#), map)
 import Data.Argonaut.Core (Json)
 import Data.Argonaut.Encode (encodeJson, gEncodeJson')
 import Data.Foldable (foldl)
 import Data.Generic (class Generic, GenericSpine(SArray, SProd), toSpine)
 import Data.Maybe (Maybe(Just))
+import Data.Monoid ((<>))
 import Data.String (drop, lastIndexOf, take, toLower)
 import Data.StrMap as M
 
@@ -24,10 +25,10 @@ encodeOptions' = foldl insertOption M.empty >>> encodeJson
   encodeKey = simpleName >>> toCamelCase
   encodeValue (SArray options) = map force options # encodeOptions'
   encodeValue value = gEncodeJson' value
-  force = (unit #)
+  force = (#) unit
 
 toCamelCase :: String -> String
-toCamelCase s = toLower (take 1 s) ++ drop 1 s
+toCamelCase s = toLower (take 1 s) <> drop 1 s
 
 simpleName :: String -> String
 simpleName qname =

test/Main.purs

@@ -1,6 +1,12 @@
 module Test.Main where
 
-import Data.Argonaut.Combinators ((~>), (:=))
+import Prelude (Unit)
+
+import Control.Monad.Eff (Eff)
+import Control.Monad.Eff.Console (CONSOLE)
+import Node.Process (PROCESS)
+
+import Data.Argonaut.Encode.Combinators ((~>), (:=))
 import Data.Argonaut.Core (jsonEmptyObject)
 
 import Test.Spec (it, describe)
@@ -11,6 +17,7 @@ import Test.Spec.Runner (run)
 import Electron.BrowserWindow (BrowserWindowOption(WebPreferences, Height, Width), WebPreference(OverlayScrollbars))
 import Electron.Options (encodeOptions)
 
+main :: forall eff. Eff (process :: PROCESS, console :: CONSOLE | eff) Unit
 main = run [consoleReporter] do
   describe "encodeOptions :: BrowserWindowOptions -> Json" do
     it "can encode all options" do