cabal-cache-0.2.0.2: src/HaskellWorks/Ci/Assist/Text.hs

module HaskellWorks.Ci.Assist.Text
  ( maybeStripPrefix
  ) where

import Data.Maybe
import Data.Text  (Text)

import qualified Data.Text as T

maybeStripPrefix :: Text -> Text -> Text
maybeStripPrefix prefix text = fromMaybe text (T.stripPrefix prefix text)