Skip to content

Commit 75e6b21

Browse files
authored
Merge pull request #20 from purescript/compiler/0.12
Update for PureScript 0.12
2 parents 31161cb + c10e2bc commit 75e6b21

File tree

6 files changed

+37
-35
lines changed

6 files changed

+37
-35
lines changed

.gitignore

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -5,3 +5,4 @@
55
/bower_components/
66
/node_modules/
77
/output/
8+
package-lock.json

LICENSE

Lines changed: 22 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,20 +1,26 @@
1-
The MIT License (MIT)
1+
Copyright 2018 PureScript
22

3-
Copyright (c) 2014 PureScript
3+
Redistribution and use in source and binary forms, with or without modification,
4+
are permitted provided that the following conditions are met:
45

5-
Permission is hereby granted, free of charge, to any person obtaining a copy of
6-
this software and associated documentation files (the "Software"), to deal in
7-
the Software without restriction, including without limitation the rights to
8-
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
9-
the Software, and to permit persons to whom the Software is furnished to do so,
10-
subject to the following conditions:
6+
1. Redistributions of source code must retain the above copyright notice, this
7+
list of conditions and the following disclaimer.
118

12-
The above copyright notice and this permission notice shall be included in all
13-
copies or substantial portions of the Software.
9+
2. Redistributions in binary form must reproduce the above copyright notice,
10+
this list of conditions and the following disclaimer in the documentation and/or
11+
other materials provided with the distribution.
1412

15-
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16-
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
17-
FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
18-
COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
19-
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
20-
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
13+
3. Neither the name of the copyright holder nor the names of its contributors
14+
may be used to endorse or promote products derived from this software without
15+
specific prior written permission.
16+
17+
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
18+
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
19+
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
20+
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
21+
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
22+
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
23+
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
24+
ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25+
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26+
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

bower.json

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,7 @@
11
{
22
"name": "purescript-random",
33
"homepage": "https://github.com/purescript/purescript-random",
4-
"description": "Random value generation",
5-
"license": "MIT",
4+
"license": "BSD-3-Clause",
65
"repository": {
76
"type": "git",
87
"url": "git://github.com/purescript/purescript-random.git"
@@ -17,8 +16,8 @@
1716
"package.json"
1817
],
1918
"dependencies": {
20-
"purescript-eff": "^3.0.0",
21-
"purescript-integers": "^3.0.0",
22-
"purescript-math": "^2.0.0"
19+
"purescript-effect": "^2.0.0",
20+
"purescript-integers": "^4.0.0",
21+
"purescript-math": "^2.1.1"
2322
}
2423
}

package.json

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,9 +5,9 @@
55
"build": "eslint src && pulp build -- --censor-lib --strict"
66
},
77
"devDependencies": {
8-
"eslint": "^3.17.1",
9-
"pulp": "^10.0.4",
10-
"purescript-psa": "^0.5.0-rc.1",
11-
"rimraf": "^2.6.1"
8+
"eslint": "^4.19.1",
9+
"pulp": "^12.2.0",
10+
"purescript-psa": "^0.6.0",
11+
"rimraf": "^2.6.2"
1212
}
1313
}
File renamed without changes.
Lines changed: 6 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,18 +1,14 @@
1-
module Control.Monad.Eff.Random where
1+
module Effect.Random where
22

33
import Prelude
44

5-
import Control.Monad.Eff (Eff, kind Effect)
5+
import Effect (Effect)
66

77
import Data.Int (toNumber, floor)
88

9-
-- | The `RANDOM` effect indicates that an Eff action may access or modify the
10-
-- | JavaScript global random number generator, i.e. `Math.random()`.
11-
foreign import data RANDOM :: Effect
12-
139
-- | Returns a random number between 0 (inclusive) and 1 (exclusive). This is
1410
-- | a direct wrapper around JavaScript's `Math.random()`.
15-
foreign import random :: forall e. Eff (random :: RANDOM | e) Number
11+
foreign import random :: Effect Number
1612

1713
-- | Takes a range specified by `low` (the first argument) and `high` (the
1814
-- | second), and returns a random integer uniformly distributed in the closed
@@ -24,7 +20,7 @@ foreign import random :: forall e. Eff (random :: RANDOM | e) Number
2420
-- | randomInt 1 10 >>= Console.print
2521
-- | ```
2622
-- | will print a random integer between 1 and 10.
27-
randomInt :: forall e. Int -> Int -> Eff (random :: RANDOM | e) Int
23+
randomInt :: Int -> Int -> Effect Int
2824
randomInt low high = do
2925
n <- random
3026
let asNumber = (toNumber high - toNumber low + one) * n + toNumber low
@@ -38,12 +34,12 @@ randomInt low high = do
3834
-- | randomRange 1.0 2.0 >>= Console.print
3935
-- | ```
4036
-- | will print a random number between 1 and 2.
41-
randomRange :: forall e. Number -> Number -> Eff (random :: RANDOM | e) Number
37+
randomRange :: Number -> Number -> Effect Number
4238
randomRange min max = do
4339
n <- random
4440
pure (n * (max - min) + min)
4541

4642
-- | Returns a random boolean value with an equal chance of being `true` or
4743
-- | `false`.
48-
randomBool :: forall e. Eff (random :: RANDOM | e) Boolean
44+
randomBool :: Effect Boolean
4945
randomBool = (_ < 0.5) <$> random

0 commit comments

Comments
 (0)