Merge pull request #53 from sharkdp/fix-drop

Handle negative arguments in drop, resolves #52

Author: garyb

src/Data/String.js

@@ -122,7 +122,7 @@ exports.take = function (n) {
 
 exports.drop = function (n) {
   return function (s) {
-    return s.substr(n);
+    return s.substring(n);
   };
 };
 

test/Test/Data/String.purs

@@ -128,12 +128,14 @@ testString = do
   assert $ take 1 "ab" == "a"
   assert $ take 2 "ab" == "ab"
   assert $ take 3 "ab" == "ab"
+  assert $ take (-1) "ab" == ""
 
   log "drop"
   assert $ drop 0 "ab" == "ab"
   assert $ drop 1 "ab" == "b"
   assert $ drop 2 "ab" == ""
   assert $ drop 3 "ab" == ""
+  assert $ drop (-1) "ab" == "ab"
 
   log "count"
   assert $ count (\c -> true) "" == 0