Rename module for error effects
commit5e845add607ec48e74693d870b3136e36fee21a4
authorGary Burgess <gary.burgess@gmail.com>
dateTue 11 Mar 2014, 22:50 (13 years ago)
parentbf55694
examples/passing/Arrays.purs+1−1
@@ -31,4 +31,4 @@ main = do
3131 let y = sort x
3232 if x == [3,2,1]
3333 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 =
99 let ts = tails [[1, 2, 3], [4, 5], [6]] in
1010 if ts == [[2, 3], [5], []]
1111 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
33import Prelude
44import Control.Monad.Eff
55import Control.Monad.ST
6−import Control.Monad.Error
6+import Control.Monad.Eff.Error
77import Debug.Trace
88
99test1 = catchError (\s -> return 0) $ do
examples/passing/EmptyDataDecls.purs+1−1
@@ -17,4 +17,4 @@ cons x (Array xs) = Array $ x : xs
1717main = let (Array xs) = cons 1 $ cons 2 $ cons 3 nil
1818 in if xs == [1, 2, 3]
1919 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
1414 let value = mkValue 1
1515 if value == 1
1616 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
1414 let value = test "Done" {}
1515 if value == "Done"
1616 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
10311031 \ return Math.random();\
10321032 \}" :: forall e. Eff (random :: Random | e) Number
10331033
1034−module Control.Monad.Error where
1034+module Control.Monad.Eff.Error where
10351035
10361036 import Control.Monad.Eff
10371037