Updates for PureScript 0.9 (#13)

.gitignore

@@ -6,4 +6,4 @@
 /bower_components/
 /node_modules/
 /output/
-/tmp/
+/test/dist/test.js

.jscsrc

@@ -0,0 +1,17 @@
+{
+  "preset": "grunt",
+  "disallowSpacesInFunctionExpression": null,
+  "requireSpacesInFunctionExpression": {
+    "beforeOpeningRoundBrace": true,
+    "beforeOpeningCurlyBrace": true
+  },
+  "disallowSpacesInAnonymousFunctionExpression": null,
+  "requireSpacesInAnonymousFunctionExpression": {
+    "beforeOpeningRoundBrace": true,
+    "beforeOpeningCurlyBrace": true
+  },
+  "disallowSpacesInsideObjectBrackets": null,
+  "requireSpacesInsideObjectBrackets": "all",
+  "validateQuoteMarks": "\"",
+  "requireCurlyBraces": null
+}

.jshintrc

@@ -0,0 +1,19 @@
+{
+  "bitwise": true,
+  "eqeqeq": true,
+  "forin": true,
+  "freeze": true,
+  "funcscope": true,
+  "futurehostile": true,
+  "strict": "global",
+  "latedef": true,
+  "noarg": true,
+  "nocomma": true,
+  "nonew": true,
+  "notypeof": true,
+  "singleGroups": true,
+  "undef": true,
+  "unused": true,
+  "eqnull": true,
+  "predef": ["exports", "require"]
+}

.travis.yml

@@ -1,10 +1,17 @@
 language: node_js
-sudo: false
-node_js:
-  - 0.12.7
+dist: trusty
+sudo: required
+node_js: 6
 install:
-  - npm install -g gulp bower
+  - npm install -g bower
   - npm install
-  - bower install
 script:
-  - npm run build
+  - bower install --production
+  - npm run -s build
+  - bower install
+  - npm run -s test
+after_success:
+- >-
+  test $TRAVIS_TAG &&
+  echo $GITHUB_TOKEN | pulp login &&
+  echo y | pulp publish --no-push

README.md

@@ -1,10 +1,17 @@
 # purescript-browserfeatures
+
+[![Latest release](http://img.shields.io/bower/v/purescript-browserfeatures.svg)](https://github.com/slamdata/purescript-browserfeatures/releases)
+[![Build Status](https://travis-ci.org/slamdata/purescript-browserfeatures.svg?branch=master)](https://travis-ci.org/slamdata/purescript-browserfeatures)
+[![Dependency Status](https://www.versioneye.com/user/projects/579a398a3815c8003b2a6cb4/badge.svg?style=flat)](https://www.versioneye.com/user/projects/579a398a3815c8003b2a6cb4)
+
 A data type for browser features and detectors to test for the features.
 
-To build, run
+## Installation
 
 ```
-gulp
+bower install purescript-browserfeatures
 ```
 
-Then open `test/index.html` and observe the console to see this in action.
+## Documentation
+
+Module documentation is [published on Pursuit](http://pursuit.purescript.org/packages/purescript-browserfeatures).

bower.json

@@ -14,11 +14,13 @@
   ],
   "license": "Apache-2.0",
   "dependencies": {
-    "purescript-base": "^0.2.0",
-    "purescript-exceptions": "^0.3.0",
-    "purescript-prelude": "^0.1.2",
-    "purescript-dom": "^0.2.6",
-    "purescript-maps": "^0.5.0",
-    "purescript-refs": "^0.2.0"
+    "purescript-dom": "^1.2.0",
+    "purescript-exceptions": "^1.0.0",
+    "purescript-maps": "^1.0.0",
+    "purescript-prelude": "^1.0.1",
+    "purescript-refs": "^1.0.0"
+  },
+  "devDependencies": {
+    "purescript-console": "^1.0.0"
   }
 }

package.json

@@ -1,21 +1,17 @@
 {
-  "name": "purescript-browserfeatures",
-  "description": "A PureScript interface to browserfeatures.js.",
-  "repository": {
-    "type": "git",
-    "url": "https://github.com/slamdata/purescript-browserfeatures.git"
-  },
-  "author": "Jon Sterling <[email protected]>",
-  "license": "Apache-2.0",
+  "private": true,
   "scripts": {
-    "build": "npm install && gulp bundle-test"
+    "clean": "rimraf output && rimraf .pulp-cache",
+    "build": "jshint src && jscs src && pulp build --censor-lib --strict",
+    "test": "pulp browserify -I test/src --main Test.Main --to test/dist/test.js"
   },
   "devDependencies": {
-    "gulp": "^3.9.0",
-    "gulp-purescript": "^0.7.0",
-    "purescript": "^0.7.6",
-    "webpack-stream": "^2.1.0"
-  },
-  "dependencies": {
+    "easyimage": "^2.1.0",
+    "jscs": "^2.8.0",
+    "jshint": "^2.9.1",
+    "pulp": "^9.0.1",
+    "purescript-psa": "^0.3.8",
+    "purescript": "^0.9.1",
+    "rimraf": "^2.5.0"
   }
 }

src/DOM/BrowserFeatures/Detectors.js

@@ -1,4 +1,4 @@
-// module DOM.BrowserFeatures.Detectors
+"use strict";
 
 exports._getTypeProperty = function (el) {
   return function () {

src/DOM/BrowserFeatures/Detectors.purs

@@ -3,29 +3,30 @@ module DOM.BrowserFeatures.Detectors
   ) where
 
 import Prelude
-import Control.Monad.Eff
-import qualified Control.Monad.Eff.Unsafe as Unsafe
-import Control.Monad.Eff.Exception
-import Control.Monad.Eff.Ref
 
-import qualified Data.List as L
-import qualified Data.Map as M
-import Data.Maybe (Maybe(..), fromMaybe)
+import Control.Monad.Eff (Eff, runPure)
+import Control.Monad.Eff.Exception (catchException)
+import Control.Monad.Eff.Ref (modifyRef, readRef, newRef)
+import Control.Monad.Eff.Unsafe as Unsafe
+
+import Data.BrowserFeatures (BrowserFeatures)
+import Data.BrowserFeatures.InputType as IT
 import Data.Foldable (foldr)
+import Data.List as L
+import Data.Map as M
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Traversable (traverse)
-import Data.Tuple
+import Data.Tuple (Tuple(..))
 
-import qualified DOM as DOM
-import qualified DOM.HTML as DOM
-import qualified DOM.HTML.Types as DOM
-import qualified DOM.Node.Types as DOM
-import qualified DOM.HTML.Window as Win
-import qualified DOM.Node.Document as Doc
-import qualified DOM.Node.Element as Elem
-import Data.BrowserFeatures
-import qualified Data.BrowserFeatures.InputType as IT
+import DOM (DOM)
+import DOM.HTML (window) as DOM
+import DOM.HTML.Types (htmlDocumentToDocument) as DOM
+import DOM.HTML.Window as Win
+import DOM.Node.Document as Doc
+import DOM.Node.Element as Elem
+import DOM.Node.Types (Element) as DOM
 
-foreign import _getTypeProperty :: forall e. DOM.Element -> Eff (dom :: DOM.DOM | e) String
+foreign import _getTypeProperty :: forall e. DOM.Element -> Eff (dom :: DOM | e) String
 
 type InputTypeMap = M.Map IT.InputType Boolean
 
@@ -44,7 +45,7 @@ memoizeEff f =
           modifyRef cacheRef (M.insert i o)
           pure o
 
-detectInputTypeSupport :: forall e. IT.InputType -> Eff (dom :: DOM.DOM | e) Boolean
+detectInputTypeSupport :: forall e. IT.InputType -> Eff (dom :: DOM | e) Boolean
 detectInputTypeSupport =
   memoizeEff \it -> do
     window <- DOM.window
@@ -57,16 +58,15 @@ detectInputTypeSupport =
       ty' <- _getTypeProperty element
       pure $ ty == ty'
 
-detectInputTypeSupportMap :: forall e. Eff (dom :: DOM.DOM | e) InputTypeMap
+detectInputTypeSupportMap :: forall e. Eff (dom :: DOM | e) InputTypeMap
 detectInputTypeSupportMap = M.fromList <$> traverse (\t -> Tuple t <$> detectInputTypeSupport t) inputTypes
   where
     inputTypes :: L.List IT.InputType
     inputTypes = foldr L.Cons L.Nil IT.allInputTypes
 
 -- | Detect browser features by testing them using the DOM.
-detectBrowserFeatures :: forall e. Eff (dom :: DOM.DOM | e) BrowserFeatures
+detectBrowserFeatures :: forall e. Eff (dom :: DOM | e) BrowserFeatures
 detectBrowserFeatures = do
   inputTypeSupportMap <- detectInputTypeSupportMap
   pure { inputTypeSupported : fromMaybe false <<< flip M.lookup inputTypeSupportMap
        }
-

src/Data/BrowserFeatures/InputType.purs

@@ -38,6 +38,9 @@ allInputTypes =
   , Text
   ]
 
+derive instance eqInputType :: Eq InputType
+derive instance ordInputType :: Ord InputType
+
 instance showInputType :: Show InputType where
   show Color = "Color"
   show Date = "Date"
@@ -69,10 +72,3 @@ renderInputType Number = "number"
 renderInputType Search = "search"
 renderInputType Range = "range"
 renderInputType Text = "text"
-
-instance eqInputType :: Eq InputType where
-  eq x y = renderInputType x == renderInputType y
-
-instance ordInputType :: Ord InputType where
-  compare x y = compare (renderInputType x) (renderInputType y)
-

test/index.html → test/dist/index.html

@@ -1,6 +1,6 @@
 <html>
   <head>
     <title>Platform Test</title>
-    <script src="../tmp/test.js" type="text/javascript"></script>
+    <script src="test.js" type="text/javascript"></script>
   </head>
 </html>