ghc/tests/programs/jeff-bug/Hawk.hs

   1 module Hawk
   2    (
   3       module Arithmetic
   4      ,module Cell
   5      ,module Devices
   6      ,module HawkIO
   7      ,module Memory
   8      ,module Register
   9      ,module STEx
  10      ,module Signal
  11      ,module Utilities
  12      ,module VRegister
  13      ,module Words
  14      ,module Instruction
  15      ,module Probe
  16      ,module PipeReg
  17      ,module Init
  18    ) where
  19
  20 import Arithmetic
  21 import Cell
  22 import Devices
  23 import HawkIO
  24 import Memory
  25 import Register
  26 import STEx
  27 import Signal
  28 import Utilities
  29 import VRegister
  30 import Words
  31 import Instruction
  32 import Probe
  33 import PipeReg
  34 import Init
  35
  36
  37 -- This serves as the top-level module, with perhaps some instance
  38 -- declarations:
  39
  40 instance (Show a, Show b, Show c, Show d, Show e,Show f) =>
  41               Show (a,b,c,d,e,f) where
  42        showsPrec n (a,b,c,d,e,f) s = ('(' : ) $
  43                                      showsPrec n a $  (',' :) $
  44                                      showsPrec n b $  (',' :) $
  45                                      showsPrec n c $  (',' :) $
  46                                      showsPrec n d $  (',' :) $
  47                                      showsPrec n e $  (',' :) $
  48                                      showsPrec n f $ ')' : s