git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Rename module for error effects
5e845adGary Burgess
examples/passing/Arrays.purs+1−1
@@ -31,4 +31,4 @@ main = do
31 let y = sort x
31 let y = sort x
32 if x == [3,2,1]
32 if x == [3,2,1]
33 then Debug.Trace.trace "Done"
33 then Debug.Trace.trace "Done"
34− else Control.Monad.Error.throwError "Not done"
34+ else Control.Monad.Eff.Error.throwError "Not done"
examples/passing/BindersInFunctions.purs+1−1
@@ -9,4 +9,4 @@ main =
9 let ts = tails [[1, 2, 3], [4, 5], [6]] in
9 let ts = tails [[1, 2, 3], [4, 5], [6]] in
10 if ts == [[2, 3], [5], []]
10 if ts == [[2, 3], [5], []]
11 then Debug.Trace.trace "Done"
11 then Debug.Trace.trace "Done"
12− else Control.Monad.Error.throwError "Incorrect result from 'tails'."
12+ else Control.Monad.Eff.Error.throwError "Incorrect result from 'tails'."
examples/passing/Eff.purs+1−1
@@ -3,7 +3,7 @@ module TestEff where
3import Prelude
3import Prelude
4import Control.Monad.Eff
4import Control.Monad.Eff
5import Control.Monad.ST
5import Control.Monad.ST
6−import Control.Monad.Error
6+import Control.Monad.Eff.Error
7import Debug.Trace
7import Debug.Trace
8
8
9test1 = catchError (\s -> return 0) $ do
9test1 = catchError (\s -> return 0) $ do
examples/passing/EmptyDataDecls.purs+1−1
@@ -17,4 +17,4 @@ cons x (Array xs) = Array $ x : xs
17main = let (Array xs) = cons 1 $ cons 2 $ cons 3 nil
17main = let (Array xs) = cons 1 $ cons 2 $ cons 3 nil
18 in if xs == [1, 2, 3]
18 in if xs == [1, 2, 3]
19 then Debug.Trace.trace "Done"
19 then Debug.Trace.trace "Done"
20− else Control.Monad.Error.throwError "Failed"
20+ else Control.Monad.Eff.Error.throwError "Failed"
examples/passing/FunctionScope.purs+1−1
@@ -14,4 +14,4 @@ module Main where
14 let value = mkValue 1
14 let value = mkValue 1
15 if value == 1
15 if value == 1
16 then Debug.Trace.trace "Done"
16 then Debug.Trace.trace "Done"
17− else Control.Monad.Error.throwError "Not done"
17+ else Control.Monad.Eff.Error.throwError "Not done"
examples/passing/Functions2.purs+1−1
@@ -14,4 +14,4 @@ module Main where
14 let value = test "Done" {}
14 let value = test "Done" {}
15 if value == "Done"
15 if value == "Done"
16 then Debug.Trace.trace "Done"
16 then Debug.Trace.trace "Done"
17− else Control.Monad.Error.throwError "Not done"
17+ else Control.Monad.Eff.Error.throwError "Not done"
prelude/prelude.purs+1−1
@@ -1031,7 +1031,7 @@ module Random where
1031 \ return Math.random();\
1031 \ return Math.random();\
1032 \}" :: forall e. Eff (random :: Random | e) Number
1032 \}" :: forall e. Eff (random :: Random | e) Number
1033
1033
1034−module Control.Monad.Error where
1034+module Control.Monad.Eff.Error where
1035
1035
1036 import Control.Monad.Eff
1036 import Control.Monad.Eff
1037
1037