{-# LANGUAGE DeriveDataTypeable #-}

{-# LINE 2 "./System/GIO/Enums.chs" #-}
-- GIMP Toolkit (GTK) Binding for Haskell: binding to gio -*-haskell-*-
--
-- Author : Andy Stewart
-- Created: 30-April-2010
--
-- Copyright (c) 2010 Andy Stewart
--
-- This library is free software: you can redistribute it and/or
-- modify it under the terms of the GNU Lesser General Public License
-- as published by the Free Software Foundation, either version 3 of
-- the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
-- You should have received a copy of the GNU Lesser General Public
-- License along with this program. If not, see
-- <http:
--
-- GIO, the C library which this Haskell library depends on, is
-- available under LGPL Version 2. The documentation included with
-- this library is based on the original GIO documentation.
--
-- | Maintainer : gtk2hs-devel@lists.sourceforge.net
-- Stability : alpha
-- Portability : portable (depends on GHC)
module System.GIO.Enums (
-- * Enums
    FileQueryInfoFlags(..),
    FileCreateFlags(..),
    FileCopyFlags(..),
    FileMonitorFlags(..),
    FilesystemPreviewType(..),
    FileType(..),
    FileAttributeStatus(..),
    FileAttributeInfoFlags(..),

    AskPasswordFlags(..),
    PasswordSave(..),
    MountOperationResult(..),

    IOErrorEnum(..),

    FileMonitorEvent(..),
    MountMountFlags(..),
    MountUnmountFlags(..),


    DriveStartFlags(..),
    DriveStartStopType(..),



    EmblemOrigin(..),


    AppInfoCreateFlags(..),
    ) where

import Control.Monad
import Data.Typeable
import System.Glib.FFI
import System.Glib.Flags
import System.Glib.GError
import System.Glib.GObject
import System.Glib.UTFString


{-# LINE 72 "./System/GIO/Enums.chs" #-}

-- | Flags used when querying a 'FileInfo'.
data FileQueryInfoFlags = FileQueryInfoNone
                        | FileQueryInfoNofollowSymlinks
                        deriving (FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
(FileQueryInfoFlags -> FileQueryInfoFlags -> Bool)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> Bool)
-> Eq FileQueryInfoFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
== :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
$c/= :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
/= :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
Eq,Eq FileQueryInfoFlags
Eq FileQueryInfoFlags =>
(FileQueryInfoFlags -> FileQueryInfoFlags -> Ordering)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> Bool)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> Bool)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> Bool)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> Bool)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags)
-> (FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags)
-> Ord FileQueryInfoFlags
FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
FileQueryInfoFlags -> FileQueryInfoFlags -> Ordering
FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: FileQueryInfoFlags -> FileQueryInfoFlags -> Ordering
compare :: FileQueryInfoFlags -> FileQueryInfoFlags -> Ordering
$c< :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
< :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
$c<= :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
<= :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
$c> :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
> :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
$c>= :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
>= :: FileQueryInfoFlags -> FileQueryInfoFlags -> Bool
$cmax :: FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags
max :: FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags
$cmin :: FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags
min :: FileQueryInfoFlags -> FileQueryInfoFlags -> FileQueryInfoFlags
Ord,FileQueryInfoFlags
FileQueryInfoFlags
-> FileQueryInfoFlags -> Bounded FileQueryInfoFlags
forall a. a -> a -> Bounded a
$cminBound :: FileQueryInfoFlags
minBound :: FileQueryInfoFlags
$cmaxBound :: FileQueryInfoFlags
maxBound :: FileQueryInfoFlags
Bounded,Int -> FileQueryInfoFlags -> ShowS
[FileQueryInfoFlags] -> ShowS
FileQueryInfoFlags -> String
(Int -> FileQueryInfoFlags -> ShowS)
-> (FileQueryInfoFlags -> String)
-> ([FileQueryInfoFlags] -> ShowS)
-> Show FileQueryInfoFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> FileQueryInfoFlags -> ShowS
showsPrec :: Int -> FileQueryInfoFlags -> ShowS
$cshow :: FileQueryInfoFlags -> String
show :: FileQueryInfoFlags -> String
$cshowList :: [FileQueryInfoFlags] -> ShowS
showList :: [FileQueryInfoFlags] -> ShowS
Show,Typeable)
instance Enum FileQueryInfoFlags where
  fromEnum FileQueryInfoNone = 0
  fromEnum FileQueryInfoNofollowSymlinks = 1

  toEnum 0 = FileQueryInfoNone
  toEnum 1 = FileQueryInfoNofollowSymlinks
  toEnum unmatched = error ("FileQueryInfoFlags.toEnum: Cannot match " ++ show unmatched)

  succ FileQueryInfoNone = FileQueryInfoNofollowSymlinks
  succ _ = undefined

  pred FileQueryInfoNofollowSymlinks = FileQueryInfoNone
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileQueryInfoNofollowSymlinks
  enumFromThen :: FileQueryInfoFlags -> FileQueryInfoFlags -> [FileQueryInfoFlags]
enumFromThen FileQueryInfoFlags
_ FileQueryInfoFlags
_ =     String -> [FileQueryInfoFlags]
forall a. HasCallStack => String -> a
error String
"Enum FileQueryInfoFlags: enumFromThen not implemented"
  enumFromThenTo :: FileQueryInfoFlags
-> FileQueryInfoFlags -> FileQueryInfoFlags -> [FileQueryInfoFlags]
enumFromThenTo FileQueryInfoFlags
_ FileQueryInfoFlags
_ FileQueryInfoFlags
_ =     String -> [FileQueryInfoFlags]
forall a. HasCallStack => String -> a
error String
"Enum FileQueryInfoFlags: enumFromThenTo not implemented"

{-# LINE 75 "./System/GIO/Enums.chs" #-}
instance Flags FileQueryInfoFlags

-- | Flags used when an operation may create a file.
data FileCreateFlags = FileCreateNone
                     | FileCreatePrivate
                     | FileCreateReplaceDestination
                     deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum FileCreateFlags where
  fromEnum FileCreateNone = 0
  fromEnum FileCreatePrivate = 1
  fromEnum FileCreateReplaceDestination = 2

  toEnum 0 = FileCreateNone
  toEnum 1 = FileCreatePrivate
  toEnum 2 = FileCreateReplaceDestination
  toEnum unmatched = error ("FileCreateFlags.toEnum: Cannot match " ++ show unmatched)

  succ FileCreateNone = FileCreatePrivate
  succ FileCreatePrivate = FileCreateReplaceDestination
  succ _ = undefined

  pred FileCreatePrivate = FileCreateNone
  pred FileCreateReplaceDestination = FileCreatePrivate
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileCreateReplaceDestination
  enumFromThen _ _ =     error "Enum FileCreateFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FileCreateFlags: enumFromThenTo not implemented"

{-# LINE 79 "./System/GIO/Enums.chs" #-}
instance Flags FileCreateFlags

-- | Flags used when copying or moving files.
data FileCopyFlags = FileCopyNone
                   | FileCopyOverwrite
                   | FileCopyBackup
                   | FileCopyNofollowSymlinks
                   | FileCopyAllMetadata
                   | FileCopyNoFallbackForMove
                   | FileCopyTargetDefaultPerms
                   deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum FileCopyFlags where
  fromEnum FileCopyNone = 0
  fromEnum FileCopyOverwrite = 1
  fromEnum FileCopyBackup = 2
  fromEnum FileCopyNofollowSymlinks = 4
  fromEnum FileCopyAllMetadata = 8
  fromEnum FileCopyNoFallbackForMove = 16
  fromEnum FileCopyTargetDefaultPerms = 32

  toEnum 0 = FileCopyNone
  toEnum 1 = FileCopyOverwrite
  toEnum 2 = FileCopyBackup
  toEnum 4 = FileCopyNofollowSymlinks
  toEnum 8 = FileCopyAllMetadata
  toEnum 16 = FileCopyNoFallbackForMove
  toEnum 32 = FileCopyTargetDefaultPerms
  toEnum unmatched = error ("FileCopyFlags.toEnum: Cannot match " ++ show unmatched)

  succ FileCopyNone = FileCopyOverwrite
  succ FileCopyOverwrite = FileCopyBackup
  succ FileCopyBackup = FileCopyNofollowSymlinks
  succ FileCopyNofollowSymlinks = FileCopyAllMetadata
  succ FileCopyAllMetadata = FileCopyNoFallbackForMove
  succ FileCopyNoFallbackForMove = FileCopyTargetDefaultPerms
  succ :: FileAttributeInfoFlags -> FileAttributeInfoFlags
succ _ = undefined

  pred FileCopyOverwrite = FileCopyNone
  pred FileCopyBackup = FileCopyOverwrite
  pred FileCopyNofollowSymlinks = FileCopyBackup
  pred FileCopyAllMetadata = FileCopyNofollowSymlinks
  pred FileCopyNoFallbackForMove = FileCopyAllMetadata
  pred FileCopyTargetDefaultPerms = FileCopyNoFallbackForMove
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileCopyTargetDefaultPerms
  enumFromThen :: FileCopyFlags -> FileCopyFlags -> [FileCopyFlags]
enumFromThen FileCopyFlags
_ FileCopyFlags
_ =     String -> [FileCopyFlags]
forall a. HasCallStack => String -> a
error String
"Enum FileCopyFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FileCopyFlags: enumFromThenTo not implemented"

{-# LINE 83 "./System/GIO/Enums.chs" #-}
instance Flags FileCopyFlags

-- | Flags used to set what a 'FileMonitor' will watch for.
data FileMonitorFlags = FileMonitorNone
                      | FileMonitorWatchMounts
                      | FileMonitorSendMoved
                      | FileMonitorWatchHardLinks
                      | FileMonitorWatchMoves
                      deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum FileMonitorFlags where
  fromEnum FileMonitorNone = 0
  fromEnum FileMonitorWatchMounts = 1
  fromEnum FileMonitorSendMoved = 2
  fromEnum FileMonitorWatchHardLinks = 4
  fromEnum FileMonitorWatchMoves = 8

  toEnum 0 = FileMonitorNone
  toEnum 1 = FileMonitorWatchMounts
  toEnum 2 = FileMonitorSendMoved
  toEnum 4 = FileMonitorWatchHardLinks
  toEnum 8 = FileMonitorWatchMoves
  toEnum unmatched = error ("FileMonitorFlags.toEnum: Cannot match " ++ show unmatched)

  succ FileMonitorNone = FileMonitorWatchMounts
  succ FileMonitorWatchMounts = FileMonitorSendMoved
  succ FileMonitorSendMoved = FileMonitorWatchHardLinks
  succ FileMonitorWatchHardLinks = FileMonitorWatchMoves
  succ _ = undefined

  pred FileMonitorWatchMounts = FileMonitorNone
  pred FileMonitorSendMoved = FileMonitorWatchMounts
  pred FileMonitorWatchHardLinks = FileMonitorSendMoved
  pred FileMonitorWatchMoves = FileMonitorWatchHardLinks
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileMonitorWatchMoves
  enumFromThen _ _ =     error "Enum FileMonitorFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FileMonitorFlags: enumFromThenTo not implemented"

{-# LINE 87 "./System/GIO/Enums.chs" #-}
instance Flags FileMonitorFlags

-- | Indicates a hint from the file system whether files should be previewed in a file manager. Returned
-- as the value of the key 'FileAttributeFilesystemUsePreview'.
data FilesystemPreviewType = FilesystemPreviewTypeIfAlways
                           | FilesystemPreviewTypeIfLocal
                           | FilesystemPreviewTypeNever
                           deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum FilesystemPreviewType where
  fromEnum FilesystemPreviewTypeIfAlways = 0
  fromEnum FilesystemPreviewTypeIfLocal = 1
  fromEnum FilesystemPreviewTypeNever = 2

  toEnum 0 = FilesystemPreviewTypeIfAlways
  toEnum 1 = FilesystemPreviewTypeIfLocal
  toEnum 2 = FilesystemPreviewTypeNever
  toEnum unmatched = error ("FilesystemPreviewType.toEnum: Cannot match " ++ show unmatched)

  succ FilesystemPreviewTypeIfAlways = FilesystemPreviewTypeIfLocal
  succ FilesystemPreviewTypeIfLocal = FilesystemPreviewTypeNever
  succ _ = undefined

  pred FilesystemPreviewTypeIfLocal = FilesystemPreviewTypeIfAlways
  pred FilesystemPreviewTypeNever = FilesystemPreviewTypeIfLocal
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FilesystemPreviewTypeNever
  enumFromThen _ _ =     error "Enum FilesystemPreviewType: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FilesystemPreviewType: enumFromThenTo not implemented"

{-# LINE 92 "./System/GIO/Enums.chs" #-}

-- | Indicates the file's on-disk type.
data FileType = FileTypeUnknown
              | FileTypeRegular
              | FileTypeDirectory
              | FileTypeSymbolicLink
              | FileTypeSpecial
              | FileTypeShortcut
              | FileTypeMountable
              deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum FileType where
  fromEnum FileTypeUnknown = 0
  fromEnum FileTypeRegular = 1
  fromEnum FileTypeDirectory = 2
  fromEnum FileTypeSymbolicLink = 3
  fromEnum FileTypeSpecial = 4
  fromEnum FileTypeShortcut = 5
  fromEnum FileTypeMountable = 6

  toEnum 0 = FileTypeUnknown
  toEnum 1 = FileTypeRegular
  toEnum 2 = FileTypeDirectory
  toEnum 3 = FileTypeSymbolicLink
  toEnum 4 = FileTypeSpecial
  toEnum 5 = FileTypeShortcut
  toEnum 6 = FileTypeMountable
  toEnum unmatched = error ("FileType.toEnum: Cannot match " ++ show unmatched)

  succ FileTypeUnknown = FileTypeRegular
  succ FileTypeRegular = FileTypeDirectory
  succ FileTypeDirectory = FileTypeSymbolicLink
  succ FileTypeSymbolicLink = FileTypeSpecial
  succ FileTypeSpecial = FileTypeShortcut
  succ FileTypeShortcut = FileTypeMountable
  succ _ = undefined

  pred FileTypeRegular = FileTypeUnknown
  pred FileTypeDirectory = FileTypeRegular
  pred FileTypeSymbolicLink = FileTypeDirectory
  pred FileTypeSpecial = FileTypeSymbolicLink
  pred :: MountMountFlags -> MountMountFlags
pred FileTypeShortcut = FileTypeSpecial
  pred FileTypeMountable = FileTypeShortcut
  pred _ Int
= undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileTypeMountable
  enumFromThen _ _ =     error "Enum FileType: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FileType: enumFromThenTo not implemented"

{-# LINE 95 "./System/GIO/Enums.chs" #-}

-- | Used by 'fileSetAttributesFromInfo' when setting file attributes.
data FileAttributeStatus = FileAttributeStatusUnset
                         | FileAttributeStatusSet
                         | FileAttributeStatusErrorSetting
                         deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum FileAttributeStatus where
  fromEnum FileAttributeStatusUnset = 0
  fromEnum FileAttributeStatusSet = 1
  fromEnum FileAttributeStatusErrorSetting = 2

  toEnum 0 = FileAttributeStatusUnset
  toEnum 1 = FileAttributeStatusSet
  toEnum 2 = FileAttributeStatusErrorSetting
  toEnum unmatched = error ("FileAttributeStatus.toEnum: Cannot match " ++ show unmatched)

  succ FileAttributeStatusUnset = FileAttributeStatusSet
  succ FileAttributeStatusSet = FileAttributeStatusErrorSetting
  succ _ = undefined

  pred FileAttributeStatusSet = FileAttributeStatusUnset
  pred FileAttributeStatusErrorSetting = FileAttributeStatusSet
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileAttributeStatusErrorSetting
  enumFromThen _ _ =     error "Enum FileAttributeStatus: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FileAttributeStatus: enumFromThenTo not implemented"

{-# LINE 98 "./System/GIO/Enums.chs" #-}

-- | Flags specifying the behaviour of an attribute.
data FileAttributeInfoFlags = FileAttributeInfoNone
                            | FileAttributeInfoCopyWithFile
                            | FileAttributeInfoCopyWhenMoved
                            deriving (Eq,Ord,Bounded,Read,Show)
instance Enum FileAttributeInfoFlags where
  fromEnum FileAttributeInfoNone = 0
  fromEnum FileAttributeInfoCopyWithFile = 1
  fromEnum FileAttributeInfoCopyWhenMoved = 2

  toEnum 0 = FileAttributeInfoNone
  toEnum 1 = FileAttributeInfoCopyWithFile
  toEnum 2 = FileAttributeInfoCopyWhenMoved
  toEnum unmatched = error ("FileAttributeInfoFlags.toEnum: Cannot match " ++ show unmatched)

  succ FileAttributeInfoNone = FileAttributeInfoCopyWithFile
  succ FileAttributeInfoCopyWithFile = FileAttributeInfoCopyWhenMoved
  succ _ = undefined

  pred FileAttributeInfoCopyWithFile = FileAttributeInfoNone
  pred FileAttributeInfoCopyWhenMoved = FileAttributeInfoCopyWithFile
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x FileAttributeInfoCopyWhenMoved
  enumFromThen _ _ =     error "Enum FileAttributeInfoFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum FileAttributeInfoFlags: enumFromThenTo not implemented"

{-# LINE 101 "./System/GIO/Enums.chs" #-}
instance Flags FileAttributeInfoFlags

-- | 'AskPasswordFlags' are used to request specific information from the user, or to notify the user of
-- their choices in an authentication situation.
data AskPasswordFlags = AskPasswordNeedPassword
                      | AskPasswordNeedUsername
                      | AskPasswordNeedDomain
                      | AskPasswordSavingSupported
                      | AskPasswordAnonymousSupported
                      | AskPasswordTcrypt
                      deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum AskPasswordFlags where
  fromEnum AskPasswordNeedPassword = 1
  fromEnum AskPasswordNeedUsername = 2
  fromEnum AskPasswordNeedDomain = 4
  fromEnum AskPasswordSavingSupported = 8
  fromEnum AskPasswordAnonymousSupported = 16
  fromEnum AskPasswordTcrypt = 32

  toEnum 1 = AskPasswordNeedPassword
  toEnum 2 = AskPasswordNeedUsername
  toEnum 4 = AskPasswordNeedDomain
  toEnum 8 = AskPasswordSavingSupported
  toEnum 16 = AskPasswordAnonymousSupported
  toEnum 32 = AskPasswordTcrypt
  toEnum unmatched = error ("AskPasswordFlags.toEnum: Cannot match " ++ show unmatched)

  succ AskPasswordNeedPassword = AskPasswordNeedUsername
  succ AskPasswordNeedUsername = AskPasswordNeedDomain
  succ AskPasswordNeedDomain = AskPasswordSavingSupported
  succ AskPasswordSavingSupported = AskPasswordAnonymousSupported
  succ AskPasswordAnonymousSupported = AskPasswordTcrypt
  succ _ = undefined

  pred AskPasswordNeedUsername = AskPasswordNeedPassword
  pred AskPasswordNeedDomain = AskPasswordNeedUsername
  pred AskPasswordSavingSupported = AskPasswordNeedDomain
  pred AskPasswordAnonymousSupported = AskPasswordSavingSupported
  pred AskPasswordTcrypt = AskPasswordAnonymousSupported
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x AskPasswordTcrypt
  enumFromThen _ _ =     error "Enum AskPasswordFlags: enumFromThen not implemented"
  enumFromThenTo DriveStartFlags
MountUnmountFlags
_ _ _ =     error "Enum AskPasswordFlags: enumFromThenTo not implemented"

{-# LINE 106 "./System/GIO/Enums.chs" #-}
instance Flags AskPasswordFlags

-- | 'PasswordSave' is used to indicate the lifespan of a saved password.
data PasswordSave = PasswordSaveNever
                  | PasswordSaveForSession
                  | PasswordSavePermanently
                  deriving (Enum,Eq,Ord,Bounded,Show,Typeable)

{-# LINE 110 "./System/GIO/Enums.chs" #-}

-- | 'MountOperationResult' is returned as a result when a request for information is send by the mounting
-- operation.
data MountOperationResult = MountOperationHandled
                          | MountOperationAborted
                          | MountOperationUnhandled
                          deriving (Enum,Eq,Ord,Bounded,Show,Typeable)

{-# LINE 114 "./System/GIO/Enums.chs" #-}

-- | Error codes returned by GIO functions.
data IOErrorEnum = IoErrorFailed
                 | IoErrorNotFound
                 | IoErrorExists
                 | IoErrorIsDirectory
                 | IoErrorNotDirectory
                 | IoErrorNotEmpty
                 | IoErrorNotRegularFile
                 | IoErrorNotSymbolicLink
                 | IoErrorNotMountableFile
                 | IoErrorFilenameTooLong
                 | IoErrorInvalidFilename
                 | IoErrorTooManyLinks
                 | IoErrorNoSpace
                 | IoErrorInvalidArgument
                 | IoErrorPermissionDenied
                 | IoErrorNotSupported
                 | IoErrorNotMounted
                 | IoErrorAlreadyMounted
                 | IoErrorClosed
                 | IoErrorCancelled
                 | IoErrorPending
                 | IoErrorReadOnly
                 | IoErrorCantCreateBackup
                 | IoErrorWrongEtag
                 | IoErrorTimedOut
                 | IoErrorWouldRecurse
                 | IoErrorBusy
                 | IoErrorWouldBlock
                 | IoErrorHostNotFound
                 | IoErrorWouldMerge
                 | IoErrorFailedHandled
                 | IoErrorTooManyOpenFiles
                 | IoErrorNotInitialized
                 | IoErrorAddressInUse
                 | IoErrorPartialInput
                 | IoErrorInvalidData
                 | IoErrorDbusError
                 | IoErrorHostUnreachable
                 | IoErrorNetworkUnreachable
                 | IoErrorConnectionRefused
                 | IoErrorProxyFailed
                 | IoErrorProxyAuthFailed
                 | IoErrorProxyNeedAuth
                 | IoErrorProxyNotAllowed
                 | IoErrorBrokenPipe
                 | IoErrorConnectionClosed
                 | IoErrorNotConnected
                 | IoErrorMessageTooLarge
                 deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum IOErrorEnum where
  fromEnum IoErrorFailed = 0
  fromEnum IoErrorNotFound = 1
  fromEnum IoErrorExists = 2
  fromEnum IoErrorIsDirectory = 3
  fromEnum IoErrorNotDirectory = 4
  fromEnum IoErrorNotEmpty = 5
  fromEnum IoErrorNotRegularFile = 6
  fromEnum IoErrorNotSymbolicLink = 7
  fromEnum IoErrorNotMountableFile = 8
  fromEnum IoErrorFilenameTooLong = 9
  fromEnum IoErrorInvalidFilename = 10
  fromEnum IoErrorTooManyLinks = 11
  fromEnum IoErrorNoSpace = 12
  fromEnum IoErrorInvalidArgument = 13
  fromEnum IoErrorPermissionDenied = 14
  fromEnum IoErrorNotSupported = 15
  fromEnum IoErrorNotMounted = 16
  fromEnum IoErrorAlreadyMounted = 17
  fromEnum IoErrorClosed = 18
  fromEnum IoErrorCancelled = 19
  fromEnum IoErrorPending = 20
  fromEnum IoErrorReadOnly = 21
  fromEnum IoErrorCantCreateBackup = 22
  fromEnum IoErrorWrongEtag = 23
  fromEnum IoErrorTimedOut = 24
  fromEnum IoErrorWouldRecurse = 25
  fromEnum IoErrorBusy = 26
  fromEnum IoErrorWouldBlock = 27
  fromEnum IoErrorHostNotFound = 28
  fromEnum IoErrorWouldMerge = 29
  fromEnum IoErrorFailedHandled = 30
  fromEnum IoErrorTooManyOpenFiles = 31
  fromEnum IoErrorNotInitialized = 32
  fromEnum IoErrorAddressInUse = 33
  fromEnum IoErrorPartialInput = 34
  fromEnum IoErrorInvalidData = 35
  fromEnum IoErrorDbusError = 36
  fromEnum IoErrorHostUnreachable = 37
  fromEnum IoErrorNetworkUnreachable = 38
  fromEnum IoErrorConnectionRefused = 39
  fromEnum IoErrorProxyFailed = 40
  fromEnum IoErrorProxyAuthFailed = 41
  fromEnum IoErrorProxyNeedAuth = 42
  fromEnum IoErrorProxyNotAllowed = 43
  fromEnum IoErrorBrokenPipe = 44
  fromEnum IoErrorConnectionClosed = 44
  fromEnum IoErrorNotConnected = 45
  fromEnum IoErrorMessageTooLarge = 46

  toEnum 0 = IoErrorFailed
  toEnum 1 = IoErrorNotFound
  toEnum 2 = IoErrorExists
  toEnum 3 = IoErrorIsDirectory
  toEnum 4 = IoErrorNotDirectory
  toEnum 5 = IoErrorNotEmpty
  toEnum 6 = IoErrorNotRegularFile
  toEnum 7 = IoErrorNotSymbolicLink
  toEnum 8 = IoErrorNotMountableFile
  toEnum 9 = IoErrorFilenameTooLong
  toEnum 10 = IoErrorInvalidFilename
  toEnum 11 = IoErrorTooManyLinks
  toEnum 12 = IoErrorNoSpace
  toEnum 13 = IoErrorInvalidArgument
  toEnum 14 = IoErrorPermissionDenied
  toEnum 15 = IoErrorNotSupported
  toEnum 16 = IoErrorNotMounted
  toEnum 17 = IoErrorAlreadyMounted
  toEnum 18 = IoErrorClosed
  toEnum 19 = IoErrorCancelled
  toEnum 20 = IoErrorPending
  toEnum 21 = IoErrorReadOnly
  toEnum 22 = IoErrorCantCreateBackup
  toEnum 23 = IoErrorWrongEtag
  toEnum 24 = IoErrorTimedOut
  toEnum 25 = IoErrorWouldRecurse
  toEnum 26 = IoErrorBusy
  toEnum 27 = IoErrorWouldBlock
  toEnum 28 = IoErrorHostNotFound
  toEnum 29 = IoErrorWouldMerge
  toEnum 30 = IoErrorFailedHandled
  toEnum 31 = IoErrorTooManyOpenFiles
  toEnum 32 = IoErrorNotInitialized
  toEnum 33 = IoErrorAddressInUse
  toEnum 34 = IoErrorPartialInput
  toEnum 35 = IoErrorInvalidData
  toEnum 36 = IoErrorDbusError
  toEnum 37 = IoErrorHostUnreachable
  toEnum 38 = IoErrorNetworkUnreachable
  toEnum 39 = IoErrorConnectionRefused
  toEnum 40 = IoErrorProxyFailed
  toEnum 41 = IoErrorProxyAuthFailed
  toEnum 42 = IoErrorProxyNeedAuth
  toEnum 43 = IoErrorProxyNotAllowed
  toEnum 44 = IoErrorBrokenPipe
  toEnum 45 = IoErrorNotConnected
  toEnum 46 = IoErrorMessageTooLarge
  toEnum unmatched = error ("IOErrorEnum.toEnum: Cannot match " ++ show unmatched)

  succ IoErrorFailed = IoErrorNotFound
  succ IoErrorNotFound = IoErrorExists
  succ IoErrorExists = IoErrorIsDirectory
  succ IoErrorIsDirectory = IoErrorNotDirectory
  succ IoErrorNotDirectory = IoErrorNotEmpty
  succ IoErrorNotEmpty = IoErrorNotRegularFile
  succ IoErrorNotRegularFile = IoErrorNotSymbolicLink
  succ IoErrorNotSymbolicLink = IoErrorNotMountableFile
  succ IoErrorNotMountableFile = IoErrorFilenameTooLong
  succ IoErrorFilenameTooLong = IoErrorInvalidFilename
  succ IoErrorInvalidFilename = IoErrorTooManyLinks
  succ IoErrorTooManyLinks = IoErrorNoSpace
  succ IoErrorNoSpace = IoErrorInvalidArgument
  succ IoErrorInvalidArgument = IoErrorPermissionDenied
  succ IoErrorPermissionDenied = IoErrorNotSupported
  succ IoErrorNotSupported = IoErrorNotMounted
  succ IoErrorNotMounted = IoErrorAlreadyMounted
  succ IoErrorAlreadyMounted = IoErrorClosed
  succ IoErrorClosed = IoErrorCancelled
  succ IoErrorCancelled = IoErrorPending
  succ IoErrorPending = IoErrorReadOnly
  succ IoErrorReadOnly = IoErrorCantCreateBackup
  succ IoErrorCantCreateBackup = IoErrorWrongEtag
  succ IoErrorWrongEtag = IoErrorTimedOut
  succ IoErrorTimedOut = IoErrorWouldRecurse
  succ IoErrorWouldRecurse = IoErrorBusy
  succ IoErrorBusy = IoErrorWouldBlock
  succ IoErrorWouldBlock = IoErrorHostNotFound
  succ IoErrorHostNotFound = IoErrorWouldMerge
  succ IoErrorWouldMerge = IoErrorFailedHandled
  succ IoErrorFailedHandled = IoErrorTooManyOpenFiles
  succ IoErrorTooManyOpenFiles = IoErrorNotInitialized
  succ IoErrorNotInitialized = IoErrorAddressInUse
  succ IoErrorAddressInUse = IoErrorPartialInput
  succ IoErrorPartialInput = IoErrorInvalidData
  succ IoErrorInvalidData = IoErrorDbusError
  succ IoErrorDbusError = IoErrorHostUnreachable
  succ IoErrorHostUnreachable = IoErrorNetworkUnreachable
  succ IoErrorNetworkUnreachable = IoErrorConnectionRefused
  succ IoErrorConnectionRefused = IoErrorProxyFailed
  succ IoErrorProxyFailed = IoErrorProxyAuthFailed
  succ IoErrorProxyAuthFailed = IoErrorProxyNeedAuth
  succ IoErrorProxyNeedAuth = IoErrorProxyNotAllowed
  succ IoErrorProxyNotAllowed = IoErrorBrokenPipe
  succ IoErrorBrokenPipe = IoErrorConnectionClosed
  succ IoErrorConnectionClosed = IoErrorNotConnected
  succ IoErrorNotConnected = IoErrorMessageTooLarge
  succ _ = undefined

  pred IoErrorNotFound = IoErrorFailed
  pred IoErrorExists = IoErrorNotFound
  pred IoErrorIsDirectory = IoErrorExists
  pred IoErrorNotDirectory = IoErrorIsDirectory
  pred IoErrorNotEmpty = IoErrorNotDirectory
  pred IoErrorNotRegularFile = IoErrorNotEmpty
  pred IoErrorNotSymbolicLink = IoErrorNotRegularFile
  pred IoErrorNotMountableFile = IoErrorNotSymbolicLink
  pred IoErrorFilenameTooLong = IoErrorNotMountableFile
  pred IoErrorInvalidFilename = IoErrorFilenameTooLong
  pred IoErrorTooManyLinks = IoErrorInvalidFilename
  pred IoErrorNoSpace = IoErrorTooManyLinks
  pred IoErrorInvalidArgument = IoErrorNoSpace
  pred IoErrorPermissionDenied = IoErrorInvalidArgument
  pred IoErrorNotSupported = IoErrorPermissionDenied
  pred IoErrorNotMounted = IoErrorNotSupported
  pred IoErrorAlreadyMounted = IoErrorNotMounted
  pred IoErrorClosed = IoErrorAlreadyMounted
  pred IoErrorCancelled = IoErrorClosed
  pred IoErrorPending = IoErrorCancelled
  pred IoErrorReadOnly = IoErrorPending
  pred IoErrorCantCreateBackup = IoErrorReadOnly
  pred IoErrorWrongEtag = IoErrorCantCreateBackup
  pred IoErrorTimedOut = IoErrorWrongEtag
  pred IoErrorWouldRecurse = IoErrorTimedOut
  pred IoErrorBusy = IoErrorWouldRecurse
  pred IoErrorWouldBlock = IoErrorBusy
  pred IoErrorHostNotFound = IoErrorWouldBlock
  pred IoErrorWouldMerge = IoErrorHostNotFound
  pred IoErrorFailedHandled = IoErrorWouldMerge
  pred IoErrorTooManyOpenFiles = IoErrorFailedHandled
  pred IoErrorNotInitialized = IoErrorTooManyOpenFiles
  pred IoErrorAddressInUse = IoErrorNotInitialized
  pred IoErrorPartialInput = IoErrorAddressInUse
  pred IoErrorInvalidData = IoErrorPartialInput
  pred IoErrorDbusError = IoErrorInvalidData
  pred IoErrorHostUnreachable = IoErrorDbusError
  pred IoErrorNetworkUnreachable = IoErrorHostUnreachable
  pred IoErrorConnectionRefused = IoErrorNetworkUnreachable
  pred IoErrorProxyFailed = IoErrorConnectionRefused
  pred IoErrorProxyAuthFailed = IoErrorProxyFailed
  pred IoErrorProxyNeedAuth = IoErrorProxyAuthFailed
  pred IoErrorProxyNotAllowed = IoErrorProxyNeedAuth
  pred IoErrorBrokenPipe = IoErrorProxyNotAllowed
  pred IoErrorConnectionClosed = IoErrorBrokenPipe
  pred IoErrorNotConnected = IoErrorConnectionClosed
  pred IoErrorMessageTooLarge = IoErrorNotConnected
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x IoErrorMessageTooLarge
  enumFromThen _ _ =     error "Enum IOErrorEnum: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum IOErrorEnum: enumFromThenTo not implemented"

{-# LINE 117 "./System/GIO/Enums.chs" #-}

-- | Specifies what type of event a monitor event is.
data FileMonitorEvent = FileMonitorEventChanged
                      | FileMonitorEventChangesDoneHint
                      | FileMonitorEventDeleted
                      | FileMonitorEventCreated
                      | FileMonitorEventAttributeChanged
                      | FileMonitorEventPreUnmount
                      | FileMonitorEventUnmounted
                      | FileMonitorEventMoved
                      | FileMonitorEventRenamed
                      | FileMonitorEventMovedIn
                      | FileMonitorEventMovedOut
                      deriving (Enum,Eq,Ord,Bounded,Show,Typeable)

{-# LINE 120 "./System/GIO/Enums.chs" #-}

-- | Flags used when mounting a mount.
data MountMountFlags = MountMountNone
                     deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum MountMountFlags where
  fromEnum MountMountNone = 0

  toEnum 0 = MountMountNone
  toEnum unmatched = error ("MountMountFlags.toEnum: Cannot match " ++ show unmatched)

  succ _ = undefined

  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x MountMountNone
  enumFromThen _ _ =     error "Enum MountMountFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum MountMountFlags: enumFromThenTo not implemented"

{-# LINE 123 "./System/GIO/Enums.chs" #-}
instance Flags MountMountFlags

-- | Flags used when an unmounting a mount.
data MountUnmountFlags = MountUnmountNone
                       | MountUnmountForce
                       deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum MountUnmountFlags where
  fromEnum MountUnmountNone = 0
  fromEnum MountUnmountForce = 1

  toEnum 0 = MountUnmountNone
  toEnum 1 = MountUnmountForce
  toEnum unmatched = error ("MountUnmountFlags.toEnum: Cannot match " ++ show unmatched)

  succ MountUnmountNone = MountUnmountForce
  succ _ = undefined

  pred MountUnmountForce = MountUnmountNone
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x MountUnmountForce
  enumFromThen _ _ =     error "Enum MountUnmountFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum MountUnmountFlags: enumFromThenTo not implemented"

{-# LINE 127 "./System/GIO/Enums.chs" #-}
instance Flags MountUnmountFlags


-- | Flags used when starting a drive.
data DriveStartFlags = DriveStartNone
                     deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum DriveStartFlags where
  fromEnum DriveStartNone = 0

  toEnum 0 = DriveStartNone
  toEnum unmatched = error ("DriveStartFlags.toEnum: Cannot match " ++ show unmatched)

  succ _ = undefined

  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x DriveStartNone
  enumFromThen _ _ =     error "Enum DriveStartFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum DriveStartFlags: enumFromThenTo not implemented"

{-# LINE 132 "./System/GIO/Enums.chs" #-}
instance Flags DriveStartFlags

-- | Enumeration describing how a drive can be started/stopped.
data DriveStartStopType = DriveStartStopTypeUnknown
                        | DriveStartStopTypeShutdown
                        | DriveStartStopTypeNetwork
                        | DriveStartStopTypeMultidisk
                        | DriveStartStopTypePassword
                        deriving (Enum,Eq,Ord,Bounded,Show,Typeable)

{-# LINE 136 "./System/GIO/Enums.chs" #-}



-- | 'EmblemOrigin' is used to add information about the origin of the emblem to 'Emblem'.
data EmblemOrigin = EmblemOriginUnknown
                  | EmblemOriginDevice
                  | EmblemOriginLivemetadata
                  | EmblemOriginTag
                  deriving (Enum,Eq,Ord,Bounded,Show,Typeable)

{-# LINE 141 "./System/GIO/Enums.chs" #-}


-- | Flags used when creating a 'AppInfo'.
data AppInfoCreateFlags = AppInfoCreateNone
                        | AppInfoCreateNeedsTerminal
                        | AppInfoCreateSupportsUris
                        | AppInfoCreateSupportsStartupNotification
                        deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum AppInfoCreateFlags where
  fromEnum AppInfoCreateNone = 0
  fromEnum AppInfoCreateNeedsTerminal = 1
  fromEnum AppInfoCreateSupportsUris = 2
  fromEnum AppInfoCreateSupportsStartupNotification = 4

  toEnum 0 = AppInfoCreateNone
  toEnum 1 = AppInfoCreateNeedsTerminal
  toEnum 2 = AppInfoCreateSupportsUris
  toEnum 4 = AppInfoCreateSupportsStartupNotification
  toEnum unmatched = error ("AppInfoCreateFlags.toEnum: Cannot match " ++ show unmatched)

  succ AppInfoCreateNone = AppInfoCreateNeedsTerminal
  succ AppInfoCreateNeedsTerminal = AppInfoCreateSupportsUris
  succ AppInfoCreateSupportsUris = AppInfoCreateSupportsStartupNotification
  succ _ = undefined

  pred AppInfoCreateNeedsTerminal = AppInfoCreateNone
  pred AppInfoCreateSupportsUris = AppInfoCreateNeedsTerminal
  pred AppInfoCreateSupportsStartupNotification = AppInfoCreateSupportsUris
  pred _ = undefined

  enumFromTo x y | fromEnum x == fromEnum y = [ y ]
                 | otherwise = x : enumFromTo (succ x) y
  enumFrom x = enumFromTo x AppInfoCreateSupportsStartupNotification
  enumFromThen _ _ =     error "Enum AppInfoCreateFlags: enumFromThen not implemented"
  enumFromThenTo _ _ _ =     error "Enum AppInfoCreateFlags: enumFromThenTo not implemented"

{-# LINE 145 "./System/GIO/Enums.chs" #-}
instance Flags AppInfoCreateFlags