    module Graphics.Gloss.Data.Display
            (Display(..))
    where

    -- | Describes how Gloss should display its output.
    data Display
            -- | Display in a window with the given name, size and position.
            = InWindow   String (Int, Int) (Int, Int)

            -- | Display full screen.
            | FullScreen
            deriving (Display -> Display -> Bool
    (Display -> Display -> Bool)
    -> (Display -> Display -> Bool) -> Eq Display
    forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
    /= :: Display -> Display -> Bool
    $c/= :: Display -> Display -> Bool
    == :: Display -> Display -> Bool
    $c== :: Display -> Display -> Bool
    Eq, ReadPrec [Display]
    ReadPrec Display
    Int -> ReadS Display
    ReadS [Display]
    (Int -> ReadS Display)
    -> ReadS [Display]
    -> ReadPrec Display
    -> ReadPrec [Display]
    -> Read Display
    forall a.
    (Int -> ReadS a)
    -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
    readListPrec :: ReadPrec [Display]
    $creadListPrec :: ReadPrec [Display]
    readPrec :: ReadPrec Display
    $creadPrec :: ReadPrec Display
    readList :: ReadS [Display]
    $creadList :: ReadS [Display]
    readsPrec :: Int -> ReadS Display
    $creadsPrec :: Int -> ReadS Display
    Read, Int -> Display -> ShowS
    [Display] -> ShowS
    Display -> String
    (Int -> Display -> ShowS)
    -> (Display -> String) -> ([Display] -> ShowS) -> Show Display
    forall a.
    (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
    showList :: [Display] -> ShowS
    $cshowList :: [Display] -> ShowS
    show :: Display -> String
    $cshow :: Display -> String
    showsPrec :: Int -> Display -> ShowS
    $cshowsPrec :: Int -> Display -> ShowS
    Show)