runhugs: Error occurred
ERROR "circsim.lhs":195 - Cannot justify constraints in instance member binding
*** Expression    : showsPrec
*** Type          : Show (State a) => Int -> State a -> ShowS
*** Given context : Show (State a)
*** Constraints   : Show (Int,a,Bool,Int,Bool,Int)