SplitOn.hs

import qualified Data.ByteString as B                                                                                                                              
import Data.ByteString (ByteString)    

splitOn' :: ByteString -> ByteString -> [ByteString] 
splitOn' del bs | B.null bs = []                                                                                                              
splitOn' del bs =                                                                                                                                                  
  case B.breakSubstring del bs of                                                                                                                                  
    (ls, rest) ->                                                                                                                                                  
      if B.null rest                                                                                                                                               
        then ls : mempty                                                                                                                                           
        else ls : splitOn' del (B.tail rest)