deprecate extractVoid

fumieval · Jul 18, 2023 · 4778621 · 4778621
1 parent 4e37d05
commit 4778621
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Codec/Winery.hs b/src/Codec/Winery.hs
@@ -360,6 +360,7 @@ extractVoid = Subextractor $ mkExtractor $ \case
   SVariant schs0
     | V.null schs0 -> return $ throw . InvalidTerm
   s -> throwStrategy $ UnexpectedSchema [] "no constructors" s
+{-# DEPRECATED extractVoid "Use buildVariantExtractor mempty instead" #-}
 
 infixr 1 `extractConstructorBy`
 infixr 1 `extractConstructor`