Fungi-1.0.3: Mode.hs

module Mode (
    Mode (..)
  ) where

import Text.PrettyShow

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

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

instance PrettyShow Mode where
  pshow = show