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