replay :: State -> B.ByteString -> IO ()
replay st =
    foldLogFile_ $ \act ->
    case act of
      AddComment cId mChId c  -> addComment st cId mChId c
      AddChapter chId cs mURI -> addChapter st chId cs mURI

-- | Strict fold over the comments in the log file
replay :: State -> B.ByteString -> IO ()
replay st =
    foldLogFile_ $ \act ->
    case act of
      AddComment cId mChId c  -> addComment st cId mChId c
      AddChapter chId cs mURI -> addChapter st chId cs mURI

-- | Strict fold over the comments in the log file
replay st =
    foldLogFile_ $ \act ->
    case act of
      AddComment cId mChId c  -> addComment st cId mChId c
      AddChapter chId cs mURI -> addChapter st chId cs mURI

-- | Strict fold over the comments in the log file