module HaskellWorks.CabalCache.Text
  ( maybeStripPrefix,
  ) where

import Data.Maybe (fromMaybe)
import Data.Text  (Text)

import qualified Data.Text as T

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