chore: add corruptSnapshot operation

Author: wenkokke

test/Database/LSMTree/Model/Session.hs

@@ -69,6 +69,7 @@ module Database.LSMTree.Model.Session (
   , SnapshotName
   , createSnapshot
   , openSnapshot
+  , corruptSnapshot
   , deleteSnapshot
   , listSnapshots
     -- * Multiple writable tables
@@ -590,6 +591,13 @@ openSnapshot label name = do
           Just table' ->
             newTableWith conf table'
 
+corruptSnapshot ::
+     (MonadState Model m, MonadError Err m)
+  => SnapshotName
+  -> m ()
+corruptSnapshot name = do
+  undefined
+
 deleteSnapshot ::
      (MonadState Model m, MonadError Err m)
   => SnapshotName