Output.hs

   1 module Output where
   2
   3 import Video
   4 import Audio
   5
   6 data Output =
   7   SoundEffect Int |
   8   Flash |
   9   Quake Int
  10
  11 execOutput :: Video -> Audio -> Output -> IO ()
  12 execOutput v a _ = return ()
  13
  14