msu-0.0.2: MSU/Display.hs

module MSU.Display where

data Mode = Mode Int Int

instance Show Mode where
    show (Mode w h) = show w ++ "x" ++ show h

data Display = Display
    { name  :: String
    , modes :: [Mode]
    }