Merge pull request #113 from abaco/fix-slice

Fix slice when end index == string length

Author: garyb

src/Data/String/CodeUnits.purs

@@ -305,7 +305,7 @@ dropWhile p s = drop (countPrefix p s) s
 -- | ```
 slice :: Int -> Int -> String -> Maybe String
 slice b e s = if b' < 0 || b' >= l ||
-                 e' < 0 || e' >= l ||
+                 e' < 0 || e' >  l ||
                  b' > e'
               then Nothing
               else Just (_slice b e s)

test/Test/Data/String/CodeUnits.purs

@@ -430,6 +430,10 @@ testStringCodeUnits = do
     { actual: SCU.slice 3 6   "purescript"
     , expected: Just "esc"
     }
+  assertEqual
+    { actual: SCU.slice 3 10  "purescript"
+    , expected: Just "escript"
+    }
   assertEqual
     { actual: SCU.slice (-4) (-1) "purescript"
     , expected: Just "rip"