acid-state-0.17.0: repair/Main.hs

module Main where

import Data.Acid.Repair
import System.Directory

main :: IO ()
main = do
    directory <- getCurrentDirectory
    repairEvents directory
    repairCheckpoints directory