cInfo1, cInfo2 :: CTypeInfo
cInfo1 = CTI {
           cPars = [],
           cWrites = top,
           cExpects = [],
           cLMods = noMods,
           cExns = []
         }
cInfo1, cInfo2 :: CTypeInfo
cInfo1 = CTI {
           cPars = [],
           cWrites = top,
           cExpects = [],
           cLMods = noMods,
           cExns = []
         }
cInfo1 = CTI {
           cPars = [],
           cWrites = top,
           cExpects = [],
           cLMods = noMods,
           cExns = []
         }