Fungi-1.0: Mode.hs

module Mode (
    Mode (..)
  ) where

import Text.PrettyShow

-----------------------------------------------------------

data Mode
  = Hover
  | Invert
  | String
  | Switch
  | Queue
  deriving (Show, Eq, Ord)

instance PrettyShow Mode where
  pshow = show