Define an undefined

Author: jasagredo

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/LedgerDB/V2/LSM.hs

@@ -310,7 +310,7 @@ implTakeSnapshot ccfg tracer hasFS suffix st = case pointToWithOriginRealPoint (
   NotOrigin t -> do
     let number = unSlotNo (realPointSlot t)
         snapshot = DiskSnapshot number suffix
-    diskSnapshots <- listSnapshots undefined -- hasFS
+    diskSnapshots <- defaultListSnapshots hasFS
     if List.any (== DiskSnapshot number suffix) diskSnapshots
       then
         return Nothing