{-# LINE 1 "src/System/Directory/Glob/Internal.hsc" #-}
module System.Directory.Glob.Internal where
import Data.Bits ((.|.))
import Data.Monoid ((<>))
import Foreign.C.Types (CInt(..))
data GlobFlag = GlobFlag !CInt
globDefaults :: GlobFlag
globDefaults = GlobFlag 0
instance Semigroup GlobFlag where
(GlobFlag a) <> (GlobFlag b) = GlobFlag (a .|. b)
instance Monoid GlobFlag where
mempty = globDefaults
globAppend :: GlobFlag
globAppend = GlobFlag 32
{-# LINE 36 "src/System/Directory/Glob/Internal.hsc" #-}
globMark :: GlobFlag
globMark = GlobFlag 2
{-# LINE 38 "src/System/Directory/Glob/Internal.hsc" #-}
globNoCheck :: GlobFlag
globNoCheck = GlobFlag 16
{-# LINE 40 "src/System/Directory/Glob/Internal.hsc" #-}
globNoEscape :: GlobFlag
globNoEscape = GlobFlag 64
{-# LINE 42 "src/System/Directory/Glob/Internal.hsc" #-}
globNoSort :: GlobFlag
globNoSort = GlobFlag 4
{-# LINE 44 "src/System/Directory/Glob/Internal.hsc" #-}
{-# LINE 47 "src/System/Directory/Glob/Internal.hsc" #-}
globBrace :: GlobFlag
globBrace = GlobFlag 1024
{-# LINE 49 "src/System/Directory/Glob/Internal.hsc" #-}
globNoMagic :: GlobFlag
globNoMagic = GlobFlag 2048
{-# LINE 51 "src/System/Directory/Glob/Internal.hsc" #-}
globOnlyDir :: GlobFlag
globOnlyDir = GlobFlag 8192
{-# LINE 53 "src/System/Directory/Glob/Internal.hsc" #-}
globPeriod :: GlobFlag
globPeriod = GlobFlag 128
{-# LINE 55 "src/System/Directory/Glob/Internal.hsc" #-}
globTilde :: GlobFlag
globTilde = GlobFlag 4096
{-# LINE 57 "src/System/Directory/Glob/Internal.hsc" #-}
globTildeCheck :: GlobFlag
globTildeCheck = GlobFlag 16384
{-# LINE 59 "src/System/Directory/Glob/Internal.hsc" #-}
{-# LINE 60 "src/System/Directory/Glob/Internal.hsc" #-}