git.iko.soy/rowtype-yoga/purescript-unique
on master help sign in
Updates for PureScript v0.15
commit7999c1815adeb9011124c7d54902b55f18c8f295 authorNick Saunders <nick@saunde.rs> dateThu 2 Mar 2023, 06:01 (4 years ago) parent4c40891
6 files changed+16−20
compare with master
unifiedsplit
.gitignore−1 bower.json+4−4 purs.json+3−3 src/Data/Unique.js+1−1 src/Data/Unique.purs+3−6 test/Main.purs+5−5
.gitignore−1
@@ -1,4 +1,3 @@
1−/.*
21!/.gitignore
32!/.eslintrc.json
43!/.travis.yml
bower.json+4−4
@@ -17,11 +17,11 @@
1717 "package.json"
1818 ],
1919 "dependencies": {
20− "purescript-prelude": "^3.0.0",
21− "purescript-eff": "^3.1.0"
20+ "purescript-prelude": "^6.0.0",
21+ "purescript-effect": "^4.0.0"
2222 },
2323 "devDependencies": {
24− "purescript-console": "^3.0.0",
25− "purescript-assert": "^3.0.0"
24+ "purescript-console": "^6.0.0",
25+ "purescript-assert": "^6.0.0"
2626 }
2727}
purs.json+3−3
@@ -7,7 +7,7 @@
77 "public": "AAAAC3NzaC1lZDI1NTE5AAAAICm0Ar7rHAWONOM4qA5q777/CQaN6cHvcBq3VXB7d5Yw"
88 }
99 ],
10− "version": "0.5.1",
10+ "version": "0.6.0",
1111 "license": "MIT",
1212 "location": {
1313 "githubOwner": "mechairoi",
@@ -15,7 +15,7 @@
1515 },
1616 "description": "Data.Unique for PureScript",
1717 "dependencies": {
18− "prelude": ">=3.0.0 <4.0.0",
19− "eff": ">=3.1.0 <4.0.0"
18+ "prelude": ">=6.0.0 <7.0.0",
19+ "effect": ">=4.0.0 <5.0.0"
2020 }
2121}
src/Data/Unique.js+1−1
@@ -20,7 +20,7 @@ function iter(i) {
2020 }
2121}
2222
23−exports.newUnique = function () {
23+export function newUnique() {
2424 iter(0);
2525 return uniqueSource.length === 1 ? uniqueSource[0] + "" : uniqueSource.join(",");
2626};
src/Data/Unique.purs+3−6
@@ -1,17 +1,14 @@
11module Data.Unique
22 ( newUnique
3− , Unique()
4− , UNIQ()
3+ , Unique
54 ) where
65
7−import Control.Monad.Eff (Eff, kind Effect)
6+import Effect (Effect)
87import Prelude (class Ord, class Eq, class Show, compare, (==))
98
10−foreign import data UNIQ :: Effect
11−
129newtype Unique = Unique String
1310
14−foreign import newUnique :: forall e. Eff (uniq :: UNIQ | e) Unique
11+foreign import newUnique :: Effect Unique
1512
1613instance showUnique :: Show Unique where
1714 show (Unique a) = a
test/Main.purs+5−5
@@ -1,12 +1,12 @@
11module Test.Main where
22
33import Prelude ((==), ($), (/=), discard, bind, Unit)
4−import Data.Unique (newUnique, UNIQ)
5−import Test.Assert (assert, ASSERT)
6−import Control.Monad.Eff (Eff)
7−import Control.Monad.Eff.Console (log, CONSOLE)
4+import Data.Unique (newUnique)
5+import Test.Assert (assert)
6+import Effect (Effect)
7+import Effect.Console (log)
88
9−main :: forall e. Eff (console :: CONSOLE , uniq :: UNIQ , assert :: ASSERT | e) Unit
9+main :: Effect Unit
1010main = do
1111 log "Test Data.Unique"
1212 a <- newUnique