-- GENERATED by C->Haskell Compiler, version 0.17.2 Crystal Seed, 24 Jan 2009 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/Wayland/Internal/ServerClientState.chs" #-}
module Graphics.Wayland.Internal.ServerClientState where



data ClientStateNums = ClientReadable
                     | ClientWritable
                     | ClientHangup
                     | ClientError
                     
instance Enum ClientStateNums where
  fromEnum ClientReadable = 1
  fromEnum ClientWritable = 2
  fromEnum ClientHangup = 4
  fromEnum ClientError = 8

  toEnum 1 = ClientReadable
  toEnum 2 = ClientWritable
  toEnum 4 = ClientHangup
  toEnum 8 = ClientError
  toEnum unmatched = error ("ClientStateNums.toEnum: Cannot match " ++ show unmatched)