registerMem Nothing base size = componentLookup MemoryManager >>= \x -> case x of
    Nothing  -> error "no instantiated memory manager"
    Just cId -> invoke MemoryManager cId (Register base size) >> return ()
registerMem Nothing base size = componentLookup MemoryManager >>= \x -> case x of
    Nothing  -> error "no instantiated memory manager"
    Just cId -> invoke MemoryManager cId (Register base size) >> return ()
registerMem Nothing base size = componentLookup MemoryManager >>= \x -> case x of
    Nothing  -> error "no instantiated memory manager"
    Just cId -> invoke MemoryManager cId (Register base size) >> return ()