Merge pull request #2042 from IntersectMBO/erikd/drop-partial-functions

Drop use of partial List functions

Author: Cmdv

cardano-db-sync/src/Cardano/DbSync/Ledger/State.hs

@@ -705,7 +705,7 @@ listMemorySnapshots env = do
       case AS.toNewestFirst $ ledgerDbCheckpoints ldb of
         [] -> []
         [a] -> [a]
-        ls -> [List.head ls, List.last ls]
+        (h : ls) -> catMaybes [Just h, lastMay ls]
     notGenesis GenesisPoint = False
     notGenesis (BlockPoint _ _) = True