From 3dfd6cb632ee58d325d99c30954c3ad513059966 Mon Sep 17 00:00:00 2001 From: Gary Burgess Date: Thu, 24 Mar 2016 17:22:10 +0000 Subject: [PATCH] Update build --- .gitignore | 1 + .travis.yml | 17 +++++++++++++++++ package.json | 4 ++-- src/Main.purs | 12 +++++------- 4 files changed, 25 insertions(+), 9 deletions(-) create mode 100644 .travis.yml diff --git a/.gitignore b/.gitignore index b4a75c8..3c97271 100644 --- a/.gitignore +++ b/.gitignore @@ -1,5 +1,6 @@ /.* !/.gitignore +!/.travis.yml /bower_components/ /node_modules/ /output/ diff --git a/.travis.yml b/.travis.yml new file mode 100644 index 0000000..f8ab9a3 --- /dev/null +++ b/.travis.yml @@ -0,0 +1,17 @@ +language: node_js +dist: trusty +sudo: required +node_js: 5 +install: + - npm install -g bower + - npm install +script: + - npm run build +after_success: +- >- + test $TRAVIS_TAG && + node_modules/.bin/psc-publish > .pursuit.json && + curl -X POST http://pursuit.purescript.org/packages \ + -d @.pursuit.json \ + -H 'Accept: application/json' \ + -H "Authorization: token ${GITHUB_TOKEN}" diff --git a/package.json b/package.json index 5f30a82..8382314 100644 --- a/package.json +++ b/package.json @@ -1,7 +1,7 @@ { "private": true, "scripts": { - "postinstall": "pulp dep install", + "postinstall": "bower install", "build": "pulp browserify --optimise --to dist/app.js", "watch": "pulp -w browserify --to dist/app.js" }, @@ -9,7 +9,7 @@ "virtual-dom": "^2.1.1" }, "devDependencies": { - "pulp": "^7.0.0", + "pulp": "^8.1.0", "purescript": "^0.7.6" } } diff --git a/src/Main.purs b/src/Main.purs index 0ba63c5..3ac9510 100644 --- a/src/Main.purs +++ b/src/Main.purs @@ -2,14 +2,12 @@ module Main where import Prelude -import Control.Monad.Aff (runAff) import Control.Monad.Eff (Eff()) -import Control.Monad.Eff.Exception (throwException) import Halogen -import Halogen.Util (awaitBody) -import qualified Halogen.HTML.Indexed as H -import qualified Halogen.HTML.Events.Indexed as E +import Halogen.Util (awaitBody, runHalogenAff) +import Halogen.HTML.Indexed as H +import Halogen.HTML.Events.Indexed as E data Query a = ToggleState a @@ -18,7 +16,7 @@ type State = { on :: Boolean } initialState :: State initialState = { on: false } -ui :: forall g. (Functor g) => Component State Query g +ui :: forall g. Component State Query g ui = component { render, eval } where @@ -44,6 +42,6 @@ ui = component { render, eval } pure next main :: Eff (HalogenEffects ()) Unit -main = runAff throwException (const (pure unit)) $ do +main = runHalogenAff do body <- awaitBody runUI ui initialState body