Make conversions to LookupResult total in the Normal and Monoidal API.

Author: jorisdral

src/Database/LSMTree/Monoidal.hs

@@ -241,7 +241,7 @@ lookups (Internal.MonoidalTable t) ks =
   where
     toLookupResult (Just e) = case e of
       Entry.Insert v           -> Found (Internal.deserialiseValue v)
-      Entry.InsertWithBlob _ _ -> error "Monoidal.lookups: unexpected InsertWithBlob"
+      Entry.InsertWithBlob v _ -> Found (Internal.deserialiseValue v)
       Entry.Mupdate v          -> Found (Internal.deserialiseValue v)
       Entry.Delete             -> NotFound
     toLookupResult Nothing = NotFound

src/Database/LSMTree/Normal.hs

@@ -332,7 +332,7 @@ lookups (Internal.NormalTable t) ks =
       Entry.Insert v            -> Found (Internal.deserialiseValue v)
       Entry.InsertWithBlob v br -> FoundWithBlob (Internal.deserialiseValue v)
                                                  (BlobRef br)
-      Entry.Mupdate _           -> error "Normal.lookups: unexpected Mupdate"
+      Entry.Mupdate v           -> Found (Internal.deserialiseValue v)
       Entry.Delete              -> NotFound
     toLookupResult Nothing = NotFound