Я разрабатываю игру и выбрал 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 для «удаления старых вещей»?