Temporarily use tailRec for span

Author: garyb

src/Data/Array.purs

@@ -114,7 +114,7 @@ import Prelude
 import Control.Alt ((<|>))
 import Control.Alternative (class Alternative)
 import Control.Lazy (class Lazy, defer)
-import Control.Monad.Rec.Class (class MonadRec, Step(..), tailRecM2)
+import Control.Monad.Rec.Class (class MonadRec, Step(..), tailRecM2, tailRec)
 import Control.Monad.ST (pureST)
 import Data.Array.ST (unsafeFreeze, emptySTArray, pushSTArray)
 import Data.Array.ST.Iterator (iterator, iterate, pushWhile)
@@ -521,13 +521,13 @@ span p arr =
       { init: arr, rest: [] }
   where
   breakIndex = go 0
-  go i =
+  go = tailRec \i ->
     -- This looks like a good opportunity to use the Monad Maybe instance,
     -- but it's important to write out an explicit case expression here in
     -- order to ensure that TCO is triggered.
     case index arr i of
-      Just x -> if p x then go (i+1) else Just i
-      Nothing -> Nothing
+      Just x -> if p x then Loop (i + 1) else Done (Just i)
+      Nothing -> Done Nothing
 
 -- | Group equal, consecutive elements of an array into arrays.
 -- |