ihaskell-0.10.2.1: src/StringUtils.hs

{-# LANGUAGE NoImplicitPrelude #-}
module StringUtils (
    strip,
    lstrip,
    rstrip,
    replace,
    split,
    splitFirst,
    ) where

import           IHaskellPrelude
import qualified Data.Text as T
import           Data.List.Split (splitOn)
import qualified Data.List.Split as Split

lstrip :: String -> String
lstrip = dropWhile (`elem` (" \t\r\n" :: String))

rstrip :: String -> String
rstrip = reverse . lstrip . reverse

strip :: String -> String
strip = rstrip . lstrip

replace :: String -> String -> String -> String
replace needle replacement haystack =
  T.unpack $ T.replace (T.pack needle) (T.pack replacement) (T.pack haystack)

split :: String -> String -> [String]
split = splitOn

splitFirst :: String -> String -> [String]
splitFirst delim str = let
  (head:_:tail) = Split.split (Split.onSublist delim) str
  in [head, concat tail]