classy-prelude-0.2.0.0: ClassyPrelude/FilePath.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeFamilies #-}
module ClassyPrelude.FilePath () where

import qualified Prelude
import Prelude ((.), Char)
import ClassyPrelude.Classes
import qualified Filesystem.Path.CurrentOS as F

instance CanPack F.FilePath Prelude.Char where
    pack = F.decodeString
    unpack = F.encodeString
instance CanStripPrefix F.FilePath where
    stripPrefix = F.stripPrefix
    isPrefixOf a b =
        case stripPrefix a b of
            Prelude.Nothing -> Prelude.False
            Prelude.Just{} -> Prelude.True