Merge pull request #21 from cryogenian/10-updates

0.10-updates

Author: cryogenian

bower.json

@@ -27,10 +27,10 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-ace": "^2.0.0",
-    "purescript-halogen": "^0.11.0",
-    "purescript-now": "^1.0.0",
-    "purescript-random": "^1.0.0",
-    "purescript-refs": "^1.0.0"
+    "purescript-ace": "^3.0.0",
+    "purescript-halogen": "^0.12.0",
+    "purescript-now": "^2.0.0",
+    "purescript-random": "^2.0.0",
+    "purescript-refs": "^2.0.0"
   }
 }

example/package.json

@@ -9,7 +9,7 @@
   },
   "devDependencies": {
     "pulp": "^9.0.1",
-    "purescript": "^0.9.1",
-    "rimraf": "^2.5.2"
+    "purescript": "^0.10.1",
+    "rimraf": "^2.5.4"
   }
 }

example/src/Main.purs

@@ -25,10 +25,10 @@ data Query a
   = UpdateText a
 
 type State =
-  { text :: String
+  { text ∷ String
   }
 
-initialState :: State
+initialState ∷ State
 initialState =
   { text : "Name: Ace Editor"
   }
@@ -38,38 +38,38 @@ type AceSlot = Unit
 type StateP g = H.ParentState State AceState Query AceQuery g AceSlot
 type QueryP = Coproduct Query (H.ChildF AceSlot AceQuery)
 type MainHtml g = H.ParentHTML AceState Query AceQuery g AceSlot
-type MainEffects = H.HalogenEffects (random :: RANDOM, now :: NOW, ref :: REF, ace :: ACE)
+type MainEffects = H.HalogenEffects (random ∷ RANDOM, now ∷ NOW, ref ∷ REF, ace ∷ ACE)
 type MainAff = Aff MainEffects
 type MainDSL = H.ParentDSL State AceState Query AceQuery MainAff AceSlot
 
-ui :: H.Component (StateP MainAff) QueryP MainAff
+ui ∷ H.Component (StateP MainAff) QueryP MainAff
 ui = H.parentComponent { render, eval, peek: Just (peek <<< H.runChildF) }
   where
 
-  render :: State -> MainHtml MainAff
+  render ∷ State → MainHtml MainAff
   render state =
     HH.div_
       [ HH.Slot $ aceConstructor unit (initEditor state) Nothing
       , HH.div_ [ HH.text state.text ]
       ]
 
-  initEditor :: State -> Editor -> MainAff Unit
+  initEditor ∷ State → Editor → MainAff Unit
   initEditor state editor = liftEff $ do
-    session <- Editor.getSession editor
+    session ← Editor.getSession editor
     Session.setMode "ace/mode/yaml" session
     Editor.setValue state.text Nothing editor
     pure unit
 
-  eval :: Query ~> MainDSL
+  eval ∷ Query ~> MainDSL
   eval (UpdateText next) =
     pure next
 
-  peek :: forall x. AceQuery x -> MainDSL Unit
+  peek ∷ forall x. AceQuery x → MainDSL Unit
   peek (TextChanged _) = do
-    text <- H.query unit $ H.request GetText
+    text ← H.query unit $ H.request GetText
     H.modify (_ { text = fromMaybe "" text })
   peek _ =
     pure unit
 
-main :: Eff MainEffects Unit
+main ∷ Eff MainEffects Unit
 main = runHalogenAff $ H.runUI ui (H.parentState initialState) =<< awaitBody

package.json

@@ -7,9 +7,9 @@
   },
   "devDependencies": {
     "jscs": "^3.0.7",
-    "jshint": "^2.9.2",
+    "jshint": "^2.9.4",
     "pulp": "^9.0.1",
-    "purescript": "^0.9.2",
+    "purescript": "^0.10.1",
     "purescript-psa": "^0.3.9",
     "rimraf": "^2.5.4"
   }

src/Ace/Halogen/Component.purs

@@ -22,9 +22,9 @@ import Control.Monad.Eff.Ref (Ref, REF, readRef, writeRef, modifyRef)
 import Data.DateTime.Instant (unInstant)
 import Data.Foldable (traverse_, for_)
 import Data.Maybe (Maybe(..), maybe)
+import Data.Newtype (unwrap)
 import Data.StrMap (StrMap)
 import Data.StrMap as Sm
-import Data.Time.Duration (unMilliseconds)
 
 import Ace as Ace
 import Ace.Editor as Editor
@@ -103,7 +103,7 @@ genKey = do
   rn1 ← random
   rn2 ← random
   instant ← now
-  pure $ show rn1 <> show (unMilliseconds (unInstant instant)) <> show rn2
+  pure $ show rn1 <> show (unwrap (unInstant instant)) <> show rn2
 
 data Autocomplete = Live | Basic
 
@@ -146,7 +146,7 @@ data AceQuery a
 -- | The type for autocomplete function s. Takes editor, session, text position,
 -- | prefix, and returns array of possible completions in the `Aff` monad.
 type CompleteFn eff
-   = Editor
+  = Editor
   → EditSession
   → Position
   → String
@@ -172,7 +172,7 @@ initialAceState =
 -- | The Ace component.
 aceComponent
   ∷ ∀ eff g
-   . (Monad g, Affable (AceEffects eff) g)
+  . (Monad g, Affable (AceEffects eff) g)
   ⇒ (Editor → g Unit)
   → Maybe Autocomplete
   → H.Component AceState AceQuery g