Permalink
Browse files

FIX: build for 0.12

  • Loading branch information...
eric-corumdigital committed Jun 8, 2018
1 parent bab01b9 commit 0f4d564cc2a9ee4346a76a31efa7a3be98117d0f
Showing with 16 additions and 17 deletions.
  1. +9 −10 bower.json
  2. +7 −7 test/Main.purs
View
@@ -14,17 +14,16 @@
"output"
],
"dependencies": {
"purescript-prelude": "^3.0.0",
"purescript-monoid": "^3.0.0",
"purescript-tailrec": "^3.0.0",
"purescript-maybe": "^3.0.0",
"purescript-tuples": "^4.0.0",
"purescript-lists": "^4.0.1"
"purescript-prelude": "^4.0.1",
"purescript-tailrec": "^4.0.0",
"purescript-maybe": "^4.0.0",
"purescript-tuples": "^5.0.0",
"purescript-lists": "^5.0.0"
},
"devDependencies": {
"purescript-psci-support": "^3.0.0",
"purescript-transformers": "^3.2.0",
"purescript-assert": "^3.0.0",
"purescript-refs": "^3.0.0"
"purescript-psci-support": "^4.0.0",
"purescript-transformers": "^4.1.0",
"purescript-assert": "^4.0.0",
"purescript-refs": "^4.1.0"
}
}
View
@@ -2,8 +2,8 @@ module Test.Main where
import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Ref (REF, newRef, modifyRef, readRef)
import Effect (Effect)
import Effect.Ref as Ref
import Control.Monad.Error.Class (throwError)
import Control.Monad.Except (runExcept)
import Control.Monad.Loops as M
@@ -12,9 +12,9 @@ import Data.Either (isLeft)
import Data.List as L
import Data.Unfoldable (replicate)
import Test.Assert(ASSERT, assert')
import Test.Assert (assert')
main :: Eff (assert :: ASSERT, ref :: REF) Unit
main :: Effect Unit
main = do
test_whileM
test_untilM
@@ -28,13 +28,13 @@ main = do
where
decrementToZero n = do
ref <- newRef n
ref <- Ref.new n
pure do
n' <- readRef ref
n' <- Ref.read ref
if n' <= 0
then pure false
else do
modifyRef ref (_ - 1)
Ref.modify_ (_ - 1) ref
pure true
trueList :: L.List Boolean

0 comments on commit 0f4d564

Please sign in to comment.