add COMPLETE pragma for CellDouble view pattern

qrilka · Jun 3, 2024 · e4712f4 · e4712f4
1 parent 6c9ddcb
commit e4712f4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Codec/Xlsx/Types/Common.hs b/src/Codec/Xlsx/Types/Common.hs
@@ -420,6 +420,7 @@ data CellValue
   | CellRich [RichTextRun]
   | CellError ErrorType
   deriving (Eq, Ord, Show, Generic)
+{-# COMPLETE CellText, CellDecimal, CellBool, CellRich, CellError #-}
 
 viewCellDouble :: CellValue -> Maybe Double
 viewCellDouble (CellDecimal s) = Just (toRealFloat s)
@@ -428,6 +429,7 @@ viewCellDouble _ = Nothing
 -- view pattern, since 'CellDecimal' has replaced the old constructor.
 pattern CellDouble :: Double -> CellValue
 pattern CellDouble b <- (viewCellDouble -> Just b)
+{-# COMPLETE CellText, CellDouble, CellBool, CellRich, CellError #-}
 
 instance NFData CellValue