我正在开发一款游戏,并选择 Happstack 作为持久性部分。我觉得它很容易使用,我做了一个简单的例子让自己理解它:
getAllObjects :: MonadIO m => m [Thing]
getAllObjects = do
elems <- query GetObjects
return elems
addAnObject :: (MonadIO m) => Thing -> m ()
addAnObject thing = do update $ AddObject thing
test command = do
control <- startSystemState macidProxy
result <- command
shutdownSystem control
return result
checkpoint = do
control <- startSystemState macidProxy
createCheckpoint control
shutdownSystem control
每次我“测试”它时,它都会创建一个 event.file。然后我“检查点”并创建一个新的检查点文件,这对我来说没问题,问题是旧的事件文件不断增长!我手动删除每个文件(最后一个检查点和当前文件除外)。happstack 中是否缺少一些代码来执行“删除旧事物”?