Merge pull request #7 from purescript-contrib/0.6.1

Update for 0.6.1

Author: paf31

Gruntfile.js

@@ -22,7 +22,7 @@ module.exports = function(grunt) {
 
     dotPsci: ["<%=libFiles%>"],
 
-    docgen: {
+    pscDocs: {
       readme: {
         src: "src/**/*.purs",
         dest: "README.md"
@@ -53,6 +53,6 @@ module.exports = function(grunt) {
   grunt.loadNpmTasks("grunt-purescript");
 
   grunt.registerTask("test", ["pscMake:tests", "copy", "execute:tests"]);
-  grunt.registerTask("make", ["pscMake:lib", "dotPsci", "docgen:readme"]);
+  grunt.registerTask("make", ["pscMake:lib", "dotPsci", "pscDocs:readme"]);
   grunt.registerTask("default", ["clean", "make", "test"]);
 };

README.md

@@ -223,7 +223,7 @@
     newtype LazyList a where
       LazyList :: List a -> LazyList a
 
-    type List  = L.ListT Lazy
+    type List = L.ListT Lazy
 
 
 ### Type Class Instances

package.json

@@ -11,6 +11,6 @@
     "grunt-contrib-copy": "~0.5.0",
     "grunt-contrib-clean": "~0.5.0",
     "grunt-execute": "~0.1.5",
-    "grunt-purescript": "~0.5.0"
+    "grunt-purescript": "~0.6.0"
   }
 }

src/Data/List.purs

@@ -218,10 +218,10 @@ null Nil = true
 null _ = false
 
 span :: forall a. (a -> Boolean) -> List a -> Tuple (List a) (List a)
-span p (Cons x xs) | p x = 
-  case span p xs of
-    Tuple ys zs -> Tuple (Cons x ys) zs
-span _ xs = Tuple Nil xs
+span p xs@(Cons x xs') 
+  | p x = case span p xs' of
+            Tuple ys zs -> Tuple (Cons x ys) zs
+  | otherwise = Tuple Nil xs
 
 group :: forall a. (Eq a) => List a -> List (List a)
 group = groupBy (==)