Merge pull request #35 from flipstone/fix_missing_foreign_count

Fix missing foreign `count` function.

Author: garyb

docs/Data/String.md

@@ -178,7 +178,8 @@ Returns the string without the first `n` characters.
 count :: (Char -> Boolean) -> String -> Int
 ```
 
-Returns the number of characters in the string for which the predicate holds.
+Returns the number of contiguous characters at the beginning
+of the string for which the predicate holds.
 
 #### `split`
 

src/Data/String.js

@@ -120,6 +120,13 @@ exports.drop = function (n) {
   };
 };
 
+exports.count = function (p) {
+  return function (s) {
+    for (var i = 0; i < s.length && p(s.charAt(i)); i++); {}
+    return i;
+  };
+};
+
 exports.split = function (sep) {
   return function (s) {
     return s.split(sep);

src/Data/String.purs

@@ -172,7 +172,8 @@ foreign import take :: Int -> String -> String
 -- | Returns the string without the first `n` characters.
 foreign import drop :: Int -> String -> String
 
--- | Returns the number of characters in the string for which the predicate holds.
+-- | Returns the number of contiguous characters at the beginning
+-- | of the string for which the predicate holds.
 foreign import count :: (Char -> Boolean) -> String -> Int
 
 -- | Returns the substrings of the first string separated along occurences