setIdNotExported :: Id -> Id
-- ^ We can only do this to LocalIds
setIdNotExported id = ASSERT( isLocalId id )
                      id { idScope = LocalId NotExported }
setIdNotExported :: Id -> Id
setIdNotExported id = ASSERT( isLocalId id )
                      id { idScope = LocalId NotExported }
setIdNotExported id = ASSERT( isLocalId id )
                      id { idScope = LocalId NotExported }