initC :: IO CgState
initC  = do { uniqs <- mkSplitUniqSupply 'c'
            ; return (initCgState uniqs) }
initC :: IO CgState
initC  = do { uniqs <- mkSplitUniqSupply 'c'
            ; return (initCgState uniqs) }
initC  = do { uniqs <- mkSplitUniqSupply 'c'
            ; return (initCgState uniqs) }