module Parsing (
  splitByString
  ) where

import           Data.List (isPrefixOf)

splitByString :: String -> String -> [String]
splitByString _ "" = []
splitByString splitter string =
  let (chunk, rest) = spanNextSplit string
  in
    chunk:(splitByString splitter rest)
    where
      spanNextSplit :: String -> (String, String)
      spanNextSplit [] = ([], [])
      spanNextSplit everything@(char:rest)
        | splitter `isPrefixOf` rest =
          ([char], (drop ((length splitter) + 1) everything))
        | otherwise =
          let
            (start, end) = spanNextSplit rest
          in
            (char:start, end)