-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.WebKit2WebExtension.Enums
    ( 

 -- * Enumerations
-- ** ConsoleMessageLevel #enum:ConsoleMessageLevel#

    ConsoleMessageLevel(..)                 ,


-- ** ConsoleMessageSource #enum:ConsoleMessageSource#

    ConsoleMessageSource(..)                ,


-- ** ContextMenuAction #enum:ContextMenuAction#

    ContextMenuAction(..)                   ,


-- ** FormSubmissionStep #enum:FormSubmissionStep#

    FormSubmissionStep(..)                  ,




    ) where

import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL


-- Enum FormSubmissionStep
-- | Used to indicate a particular stage in form submission. See
-- [willSubmitForm]("GI.WebKit2WebExtension.Objects.WebPage#signal:willSubmitForm").
-- 
-- /Since: 2.20/
data FormSubmissionStep = 
      FormSubmissionStepSendDomEvent
    -- ^ indicates the form\'s
    -- DOM submit event is about to be emitted.
    | FormSubmissionStepComplete
    -- ^ indicates the form is about
    -- to be submitted.
    | AnotherFormSubmissionStep Int
    -- ^ Catch-all for unknown values
    deriving (Int -> FormSubmissionStep -> ShowS
[FormSubmissionStep] -> ShowS
FormSubmissionStep -> String
(Int -> FormSubmissionStep -> ShowS)
-> (FormSubmissionStep -> String)
-> ([FormSubmissionStep] -> ShowS)
-> Show FormSubmissionStep
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FormSubmissionStep] -> ShowS
$cshowList :: [FormSubmissionStep] -> ShowS
show :: FormSubmissionStep -> String
$cshow :: FormSubmissionStep -> String
showsPrec :: Int -> FormSubmissionStep -> ShowS
$cshowsPrec :: Int -> FormSubmissionStep -> ShowS
Show, FormSubmissionStep -> FormSubmissionStep -> Bool
(FormSubmissionStep -> FormSubmissionStep -> Bool)
-> (FormSubmissionStep -> FormSubmissionStep -> Bool)
-> Eq FormSubmissionStep
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FormSubmissionStep -> FormSubmissionStep -> Bool
$c/= :: FormSubmissionStep -> FormSubmissionStep -> Bool
== :: FormSubmissionStep -> FormSubmissionStep -> Bool
$c== :: FormSubmissionStep -> FormSubmissionStep -> Bool
Eq)

instance P.Enum FormSubmissionStep where
    fromEnum :: FormSubmissionStep -> Int
fromEnum FormSubmissionStepSendDomEvent = 0
    fromEnum FormSubmissionStepComplete = 1
    fromEnum (AnotherFormSubmissionStep k :: Int
k) = Int
k

    toEnum :: Int -> FormSubmissionStep
toEnum 0 = FormSubmissionStep
FormSubmissionStepSendDomEvent
    toEnum 1 = FormSubmissionStep
FormSubmissionStepComplete
    toEnum k :: Int
k = Int -> FormSubmissionStep
AnotherFormSubmissionStep Int
k

instance P.Ord FormSubmissionStep where
    compare :: FormSubmissionStep -> FormSubmissionStep -> Ordering
compare a :: FormSubmissionStep
a b :: FormSubmissionStep
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (FormSubmissionStep -> Int
forall a. Enum a => a -> Int
P.fromEnum FormSubmissionStep
a) (FormSubmissionStep -> Int
forall a. Enum a => a -> Int
P.fromEnum FormSubmissionStep
b)

foreign import ccall "webkit_form_submission_step_get_type" c_webkit_form_submission_step_get_type :: 
    IO GType

instance BoxedEnum FormSubmissionStep where
    boxedEnumType :: FormSubmissionStep -> IO GType
boxedEnumType _ = IO GType
c_webkit_form_submission_step_get_type

-- Enum ContextMenuAction
-- | Enum values used to denote the stock actions for
-- @/WebKitContextMenuItem/@s
data ContextMenuAction = 
      ContextMenuActionNoAction
    -- ^ No action, used by separator menu items.
    | ContextMenuActionOpenLink
    -- ^ Open current link.
    | ContextMenuActionOpenLinkInNewWindow
    -- ^ Open current link in a new window.
    | ContextMenuActionDownloadLinkToDisk
    -- ^ Download link destination.
    | ContextMenuActionCopyLinkToClipboard
    -- ^ Copy link location to the clipboard.
    | ContextMenuActionOpenImageInNewWindow
    -- ^ Open current image in a new window.
    | ContextMenuActionDownloadImageToDisk
    -- ^ Download current image.
    | ContextMenuActionCopyImageToClipboard
    -- ^ Copy current image to the clipboard.
    | ContextMenuActionCopyImageUrlToClipboard
    -- ^ Copy current image location to the clipboard.
    | ContextMenuActionOpenFrameInNewWindow
    -- ^ Open current frame in a new window.
    | ContextMenuActionGoBack
    -- ^ Load the previous history item.
    | ContextMenuActionGoForward
    -- ^ Load the next history item.
    | ContextMenuActionStop
    -- ^ Stop any ongoing loading operation.
    | ContextMenuActionReload
    -- ^ Reload the contents of current view.
    | ContextMenuActionCopy
    -- ^ Copy current selection the clipboard.
    | ContextMenuActionCut
    -- ^ Cut current selection to the clipboard.
    | ContextMenuActionPaste
    -- ^ Paste clipboard contents.
    | ContextMenuActionDelete
    -- ^ Delete current selection.
    | ContextMenuActionSelectAll
    -- ^ Select all text.
    | ContextMenuActionInputMethods
    -- ^ Input methods menu.
    | ContextMenuActionUnicode
    -- ^ Unicode menu.
    | ContextMenuActionSpellingGuess
    -- ^ A proposed replacement for a misspelled word.
    | ContextMenuActionNoGuessesFound
    -- ^ An indicator that spellchecking found no proposed replacements.
    | ContextMenuActionIgnoreSpelling
    -- ^ Causes the spellchecker to ignore the word for this session.
    | ContextMenuActionLearnSpelling
    -- ^ Causes the spellchecker to add the word to the dictionary.
    | ContextMenuActionIgnoreGrammar
    -- ^ Ignore grammar.
    | ContextMenuActionFontMenu
    -- ^ Font options menu.
    | ContextMenuActionBold
    -- ^ Bold.
    | ContextMenuActionItalic
    -- ^ Italic.
    | ContextMenuActionUnderline
    -- ^ Underline.
    | ContextMenuActionOutline
    -- ^ Outline.
    | ContextMenuActionInspectElement
    -- ^ Open current element in the inspector.
    | ContextMenuActionOpenVideoInNewWindow
    -- ^ Open current video element in a new window.
    | ContextMenuActionOpenAudioInNewWindow
    -- ^ Open current audio element in a new window.
    | ContextMenuActionCopyVideoLinkToClipboard
    -- ^ Copy video link location in to the clipboard.
    | ContextMenuActionCopyAudioLinkToClipboard
    -- ^ Copy audio link location in to the clipboard.
    | ContextMenuActionToggleMediaControls
    -- ^ Enable or disable media controls.
    | ContextMenuActionToggleMediaLoop
    -- ^ Enable or disable media loop.
    | ContextMenuActionEnterVideoFullscreen
    -- ^ Show current video element in fullscreen mode.
    | ContextMenuActionMediaPlay
    -- ^ Play current media element.
    | ContextMenuActionMediaPause
    -- ^ Pause current media element.
    | ContextMenuActionMediaMute
    -- ^ Mute current media element.
    | ContextMenuActionDownloadVideoToDisk
    -- ^ Download video to disk. Since 2.2
    | ContextMenuActionDownloadAudioToDisk
    -- ^ Download audio to disk. Since 2.2
    | ContextMenuActionCustom
    -- ^ Custom action defined by applications.
    | AnotherContextMenuAction Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ContextMenuAction -> ShowS
[ContextMenuAction] -> ShowS
ContextMenuAction -> String
(Int -> ContextMenuAction -> ShowS)
-> (ContextMenuAction -> String)
-> ([ContextMenuAction] -> ShowS)
-> Show ContextMenuAction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ContextMenuAction] -> ShowS
$cshowList :: [ContextMenuAction] -> ShowS
show :: ContextMenuAction -> String
$cshow :: ContextMenuAction -> String
showsPrec :: Int -> ContextMenuAction -> ShowS
$cshowsPrec :: Int -> ContextMenuAction -> ShowS
Show, ContextMenuAction -> ContextMenuAction -> Bool
(ContextMenuAction -> ContextMenuAction -> Bool)
-> (ContextMenuAction -> ContextMenuAction -> Bool)
-> Eq ContextMenuAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ContextMenuAction -> ContextMenuAction -> Bool
$c/= :: ContextMenuAction -> ContextMenuAction -> Bool
== :: ContextMenuAction -> ContextMenuAction -> Bool
$c== :: ContextMenuAction -> ContextMenuAction -> Bool
Eq)

instance P.Enum ContextMenuAction where
    fromEnum :: ContextMenuAction -> Int
fromEnum ContextMenuActionNoAction = 0
    fromEnum ContextMenuActionOpenLink = 1
    fromEnum ContextMenuActionOpenLinkInNewWindow = 2
    fromEnum ContextMenuActionDownloadLinkToDisk = 3
    fromEnum ContextMenuActionCopyLinkToClipboard = 4
    fromEnum ContextMenuActionOpenImageInNewWindow = 5
    fromEnum ContextMenuActionDownloadImageToDisk = 6
    fromEnum ContextMenuActionCopyImageToClipboard = 7
    fromEnum ContextMenuActionCopyImageUrlToClipboard = 8
    fromEnum ContextMenuActionOpenFrameInNewWindow = 9
    fromEnum ContextMenuActionGoBack = 10
    fromEnum ContextMenuActionGoForward = 11
    fromEnum ContextMenuActionStop = 12
    fromEnum ContextMenuActionReload = 13
    fromEnum ContextMenuActionCopy = 14
    fromEnum ContextMenuActionCut = 15
    fromEnum ContextMenuActionPaste = 16
    fromEnum ContextMenuActionDelete = 17
    fromEnum ContextMenuActionSelectAll = 18
    fromEnum ContextMenuActionInputMethods = 19
    fromEnum ContextMenuActionUnicode = 20
    fromEnum ContextMenuActionSpellingGuess = 21
    fromEnum ContextMenuActionNoGuessesFound = 22
    fromEnum ContextMenuActionIgnoreSpelling = 23
    fromEnum ContextMenuActionLearnSpelling = 24
    fromEnum ContextMenuActionIgnoreGrammar = 25
    fromEnum ContextMenuActionFontMenu = 26
    fromEnum ContextMenuActionBold = 27
    fromEnum ContextMenuActionItalic = 28
    fromEnum ContextMenuActionUnderline = 29
    fromEnum ContextMenuActionOutline = 30
    fromEnum ContextMenuActionInspectElement = 31
    fromEnum ContextMenuActionOpenVideoInNewWindow = 32
    fromEnum ContextMenuActionOpenAudioInNewWindow = 33
    fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34
    fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35
    fromEnum ContextMenuActionToggleMediaControls = 36
    fromEnum ContextMenuActionToggleMediaLoop = 37
    fromEnum ContextMenuActionEnterVideoFullscreen = 38
    fromEnum ContextMenuActionMediaPlay = 39
    fromEnum ContextMenuActionMediaPause = 40
    fromEnum ContextMenuActionMediaMute = 41
    fromEnum ContextMenuActionDownloadVideoToDisk = 42
    fromEnum ContextMenuActionDownloadAudioToDisk = 43
    fromEnum ContextMenuActionCustom = 10000
    fromEnum (AnotherContextMenuAction k :: Int
k) = Int
k

    toEnum :: Int -> ContextMenuAction
toEnum 0 = ContextMenuAction
ContextMenuActionNoAction
    toEnum 1 = ContextMenuAction
ContextMenuActionOpenLink
    toEnum 2 = ContextMenuAction
ContextMenuActionOpenLinkInNewWindow
    toEnum 3 = ContextMenuAction
ContextMenuActionDownloadLinkToDisk
    toEnum 4 = ContextMenuAction
ContextMenuActionCopyLinkToClipboard
    toEnum 5 = ContextMenuAction
ContextMenuActionOpenImageInNewWindow
    toEnum 6 = ContextMenuAction
ContextMenuActionDownloadImageToDisk
    toEnum 7 = ContextMenuAction
ContextMenuActionCopyImageToClipboard
    toEnum 8 = ContextMenuAction
ContextMenuActionCopyImageUrlToClipboard
    toEnum 9 = ContextMenuAction
ContextMenuActionOpenFrameInNewWindow
    toEnum 10 = ContextMenuAction
ContextMenuActionGoBack
    toEnum 11 = ContextMenuAction
ContextMenuActionGoForward
    toEnum 12 = ContextMenuAction
ContextMenuActionStop
    toEnum 13 = ContextMenuAction
ContextMenuActionReload
    toEnum 14 = ContextMenuAction
ContextMenuActionCopy
    toEnum 15 = ContextMenuAction
ContextMenuActionCut
    toEnum 16 = ContextMenuAction
ContextMenuActionPaste
    toEnum 17 = ContextMenuAction
ContextMenuActionDelete
    toEnum 18 = ContextMenuAction
ContextMenuActionSelectAll
    toEnum 19 = ContextMenuAction
ContextMenuActionInputMethods
    toEnum 20 = ContextMenuAction
ContextMenuActionUnicode
    toEnum 21 = ContextMenuAction
ContextMenuActionSpellingGuess
    toEnum 22 = ContextMenuAction
ContextMenuActionNoGuessesFound
    toEnum 23 = ContextMenuAction
ContextMenuActionIgnoreSpelling
    toEnum 24 = ContextMenuAction
ContextMenuActionLearnSpelling
    toEnum 25 = ContextMenuAction
ContextMenuActionIgnoreGrammar
    toEnum 26 = ContextMenuAction
ContextMenuActionFontMenu
    toEnum 27 = ContextMenuAction
ContextMenuActionBold
    toEnum 28 = ContextMenuAction
ContextMenuActionItalic
    toEnum 29 = ContextMenuAction
ContextMenuActionUnderline
    toEnum 30 = ContextMenuAction
ContextMenuActionOutline
    toEnum 31 = ContextMenuAction
ContextMenuActionInspectElement
    toEnum 32 = ContextMenuAction
ContextMenuActionOpenVideoInNewWindow
    toEnum 33 = ContextMenuAction
ContextMenuActionOpenAudioInNewWindow
    toEnum 34 = ContextMenuAction
ContextMenuActionCopyVideoLinkToClipboard
    toEnum 35 = ContextMenuAction
ContextMenuActionCopyAudioLinkToClipboard
    toEnum 36 = ContextMenuAction
ContextMenuActionToggleMediaControls
    toEnum 37 = ContextMenuAction
ContextMenuActionToggleMediaLoop
    toEnum 38 = ContextMenuAction
ContextMenuActionEnterVideoFullscreen
    toEnum 39 = ContextMenuAction
ContextMenuActionMediaPlay
    toEnum 40 = ContextMenuAction
ContextMenuActionMediaPause
    toEnum 41 = ContextMenuAction
ContextMenuActionMediaMute
    toEnum 42 = ContextMenuAction
ContextMenuActionDownloadVideoToDisk
    toEnum 43 = ContextMenuAction
ContextMenuActionDownloadAudioToDisk
    toEnum 10000 = ContextMenuAction
ContextMenuActionCustom
    toEnum k :: Int
k = Int -> ContextMenuAction
AnotherContextMenuAction Int
k

instance P.Ord ContextMenuAction where
    compare :: ContextMenuAction -> ContextMenuAction -> Ordering
compare a :: ContextMenuAction
a b :: ContextMenuAction
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ContextMenuAction -> Int
forall a. Enum a => a -> Int
P.fromEnum ContextMenuAction
a) (ContextMenuAction -> Int
forall a. Enum a => a -> Int
P.fromEnum ContextMenuAction
b)

-- Enum ConsoleMessageSource
-- | Enum values used to denote the various sources of console messages.
-- 
-- /Since: 2.12/
data ConsoleMessageSource = 
      ConsoleMessageSourceJavascript
    -- ^ Message produced by JavaScript.
    | ConsoleMessageSourceNetwork
    -- ^ Network messages.
    | ConsoleMessageSourceConsoleApi
    -- ^ Messages produced by console API.
    | ConsoleMessageSourceSecurity
    -- ^ Security messages.
    | ConsoleMessageSourceOther
    -- ^ Other messages.
    | AnotherConsoleMessageSource Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ConsoleMessageSource -> ShowS
[ConsoleMessageSource] -> ShowS
ConsoleMessageSource -> String
(Int -> ConsoleMessageSource -> ShowS)
-> (ConsoleMessageSource -> String)
-> ([ConsoleMessageSource] -> ShowS)
-> Show ConsoleMessageSource
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConsoleMessageSource] -> ShowS
$cshowList :: [ConsoleMessageSource] -> ShowS
show :: ConsoleMessageSource -> String
$cshow :: ConsoleMessageSource -> String
showsPrec :: Int -> ConsoleMessageSource -> ShowS
$cshowsPrec :: Int -> ConsoleMessageSource -> ShowS
Show, ConsoleMessageSource -> ConsoleMessageSource -> Bool
(ConsoleMessageSource -> ConsoleMessageSource -> Bool)
-> (ConsoleMessageSource -> ConsoleMessageSource -> Bool)
-> Eq ConsoleMessageSource
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConsoleMessageSource -> ConsoleMessageSource -> Bool
$c/= :: ConsoleMessageSource -> ConsoleMessageSource -> Bool
== :: ConsoleMessageSource -> ConsoleMessageSource -> Bool
$c== :: ConsoleMessageSource -> ConsoleMessageSource -> Bool
Eq)

instance P.Enum ConsoleMessageSource where
    fromEnum :: ConsoleMessageSource -> Int
fromEnum ConsoleMessageSourceJavascript = 0
    fromEnum ConsoleMessageSourceNetwork = 1
    fromEnum ConsoleMessageSourceConsoleApi = 2
    fromEnum ConsoleMessageSourceSecurity = 3
    fromEnum ConsoleMessageSourceOther = 4
    fromEnum (AnotherConsoleMessageSource k :: Int
k) = Int
k

    toEnum :: Int -> ConsoleMessageSource
toEnum 0 = ConsoleMessageSource
ConsoleMessageSourceJavascript
    toEnum 1 = ConsoleMessageSource
ConsoleMessageSourceNetwork
    toEnum 2 = ConsoleMessageSource
ConsoleMessageSourceConsoleApi
    toEnum 3 = ConsoleMessageSource
ConsoleMessageSourceSecurity
    toEnum 4 = ConsoleMessageSource
ConsoleMessageSourceOther
    toEnum k :: Int
k = Int -> ConsoleMessageSource
AnotherConsoleMessageSource Int
k

instance P.Ord ConsoleMessageSource where
    compare :: ConsoleMessageSource -> ConsoleMessageSource -> Ordering
compare a :: ConsoleMessageSource
a b :: ConsoleMessageSource
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ConsoleMessageSource -> Int
forall a. Enum a => a -> Int
P.fromEnum ConsoleMessageSource
a) (ConsoleMessageSource -> Int
forall a. Enum a => a -> Int
P.fromEnum ConsoleMessageSource
b)

foreign import ccall "webkit_console_message_source_get_type" c_webkit_console_message_source_get_type :: 
    IO GType

instance BoxedEnum ConsoleMessageSource where
    boxedEnumType :: ConsoleMessageSource -> IO GType
boxedEnumType _ = IO GType
c_webkit_console_message_source_get_type

-- Enum ConsoleMessageLevel
-- | Enum values used to denote the various levels of console messages.
-- 
-- /Since: 2.12/
data ConsoleMessageLevel = 
      ConsoleMessageLevelInfo
    -- ^ Information message.
    | ConsoleMessageLevelLog
    -- ^ Log message.
    | ConsoleMessageLevelWarning
    -- ^ Warning message.
    | ConsoleMessageLevelError
    -- ^ Error message.
    | ConsoleMessageLevelDebug
    -- ^ Debug message.
    | AnotherConsoleMessageLevel Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ConsoleMessageLevel -> ShowS
[ConsoleMessageLevel] -> ShowS
ConsoleMessageLevel -> String
(Int -> ConsoleMessageLevel -> ShowS)
-> (ConsoleMessageLevel -> String)
-> ([ConsoleMessageLevel] -> ShowS)
-> Show ConsoleMessageLevel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConsoleMessageLevel] -> ShowS
$cshowList :: [ConsoleMessageLevel] -> ShowS
show :: ConsoleMessageLevel -> String
$cshow :: ConsoleMessageLevel -> String
showsPrec :: Int -> ConsoleMessageLevel -> ShowS
$cshowsPrec :: Int -> ConsoleMessageLevel -> ShowS
Show, ConsoleMessageLevel -> ConsoleMessageLevel -> Bool
(ConsoleMessageLevel -> ConsoleMessageLevel -> Bool)
-> (ConsoleMessageLevel -> ConsoleMessageLevel -> Bool)
-> Eq ConsoleMessageLevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConsoleMessageLevel -> ConsoleMessageLevel -> Bool
$c/= :: ConsoleMessageLevel -> ConsoleMessageLevel -> Bool
== :: ConsoleMessageLevel -> ConsoleMessageLevel -> Bool
$c== :: ConsoleMessageLevel -> ConsoleMessageLevel -> Bool
Eq)

instance P.Enum ConsoleMessageLevel where
    fromEnum :: ConsoleMessageLevel -> Int
fromEnum ConsoleMessageLevelInfo = 0
    fromEnum ConsoleMessageLevelLog = 1
    fromEnum ConsoleMessageLevelWarning = 2
    fromEnum ConsoleMessageLevelError = 3
    fromEnum ConsoleMessageLevelDebug = 4
    fromEnum (AnotherConsoleMessageLevel k :: Int
k) = Int
k

    toEnum :: Int -> ConsoleMessageLevel
toEnum 0 = ConsoleMessageLevel
ConsoleMessageLevelInfo
    toEnum 1 = ConsoleMessageLevel
ConsoleMessageLevelLog
    toEnum 2 = ConsoleMessageLevel
ConsoleMessageLevelWarning
    toEnum 3 = ConsoleMessageLevel
ConsoleMessageLevelError
    toEnum 4 = ConsoleMessageLevel
ConsoleMessageLevelDebug
    toEnum k :: Int
k = Int -> ConsoleMessageLevel
AnotherConsoleMessageLevel Int
k

instance P.Ord ConsoleMessageLevel where
    compare :: ConsoleMessageLevel -> ConsoleMessageLevel -> Ordering
compare a :: ConsoleMessageLevel
a b :: ConsoleMessageLevel
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ConsoleMessageLevel -> Int
forall a. Enum a => a -> Int
P.fromEnum ConsoleMessageLevel
a) (ConsoleMessageLevel -> Int
forall a. Enum a => a -> Int
P.fromEnum ConsoleMessageLevel
b)

foreign import ccall "webkit_console_message_level_get_type" c_webkit_console_message_level_get_type :: 
    IO GType

instance BoxedEnum ConsoleMessageLevel where
    boxedEnumType :: ConsoleMessageLevel -> IO GType
boxedEnumType _ = IO GType
c_webkit_console_message_level_get_type