Merge pull request #4 from purescript/0.8-updates

Updates for PureScript 0.8

Author: garyb

.gitignore

@@ -4,4 +4,3 @@
 /bower_components/
 /node_modules/
 /output/
-/tmp/

.travis.yml

@@ -1,14 +1,23 @@
 language: node_js
 sudo: false
 node_js:
-  - 0.10
+  - 5
 env:
   - PATH=$HOME/purescript:$PATH
 install:
   - TAG=$(wget -q -O - https://github.com/purescript/purescript/releases/latest --server-response --max-redirect 0 2>&1 | sed -n -e 's/.*Location:.*tag\///p')
   - wget -O $HOME/purescript.tar.gz https://github.com/purescript/purescript/releases/download/$TAG/linux64.tar.gz
   - tar -xvf $HOME/purescript.tar.gz -C $HOME/
   - chmod a+x $HOME/purescript
+  - npm install -g bower
   - npm install
 script:
   - npm run build
+after_success:
+- >-
+  test $TRAVIS_TAG &&
+  psc-publish > .pursuit.json &&
+  curl -X POST http://pursuit.purescript.org/packages \
+    -d @.pursuit.json \
+    -H 'Accept: application/json' \
+    -H "Authorization: token ${GITHUB_TOKEN}"

README.md

@@ -12,6 +12,6 @@ Invariant functors.
 bower install purescript-invariant
 ```
 
-## Module documentation
+## Documentation
 
-- [Data.Functor.Invariant](docs/Data/Functor/Invariant.md)
+Module documentation is [published on Pursuit](http://pursuit.purescript.org/packages/purescript-invariant).

bower.json

@@ -2,14 +2,6 @@
   "name": "purescript-invariant",
   "homepage": "https://github.com/purescript/purescript-invariant",
   "description": "Invariant functors for PureScript",
-  "keywords": [
-    "purescript",
-    "invariant",
-    "functor"
-  ],
-  "authors": [
-    "Gary Burgess <gary.burgess@gmail.com>"
-  ],
   "license": "MIT",
   "repository": {
     "type": "git",
@@ -25,6 +17,6 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-prelude": "^0.1.0"
+    "purescript-prelude": "^1.0.0-rc.1"
   }
 }

docs/Data/Functor/Invariant.md

@@ -2,10 +2,11 @@
   "private": true,
   "scripts": {
     "postinstall": "pulp dep install",
-    "build": "pulp build && rimraf docs && pulp docs"
+    "clean": "rimraf output && rimraf .pulp-cache",
+    "build": "pulp build"
   },
   "devDependencies": {
-    "pulp": "^4.0.2",
-    "rimraf": "^2.4.1"
+    "pulp": "^8.0.0",
+    "rimraf": "^2.5.0"
   }
 }

package.json

@@ -1,6 +1,7 @@
 module Data.Functor.Invariant where
 
-import Prelude
+import Data.Function (const, (<<<))
+import Data.Functor (class Functor, map)
 
 -- | A type of functor that can be used to adapt the type of a wrapped function
 -- | where the parameterised type occurs in both the positive and negative
@@ -14,14 +15,14 @@ import Prelude
 class Invariant f where
   imap :: forall a b. (a -> b) -> (b -> a) -> f a -> f b
 
--- | As all `Functor`s are also trivially `Invariant`, this function can be
--- | used as the `imap` implementation for all `Invariant` instances for
--- | `Functors`.
-imapF :: forall f a b. (Functor f) => (a -> b) -> (b -> a) -> f a -> f b
-imapF = const <<< map 
-
 instance invariantFn :: Invariant ((->) a) where
   imap = imapF
 
 instance invariantArray :: Invariant Array where
   imap = imapF
+
+-- | As all `Functor`s are also trivially `Invariant`, this function can be
+-- | used as the `imap` implementation for any types that has an existing
+-- | `Functor` instance.
+imapF :: forall f a b. Functor f => (a -> b) -> (b -> a) -> f a -> f b
+imapF = const <<< map