adjust to CellDouble being a pattern synonym

qrilka · May 17, 2024 · 40c1bd3 · 40c1bd3
1 parent dd03d32
commit 40c1bd3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Codec/Xlsx/Parser/Internal.hs b/src/Codec/Xlsx/Parser/Internal.hs
@@ -33,6 +33,7 @@ import Data.Maybe
 import Data.Text (Text)
 import qualified Data.Text as T
 import qualified Data.Text.Read as T
+import Data.Scientific (Scientific)
 import Data.Typeable (Typeable)
 import GHC.Generics (Generic)
 import Text.XML
@@ -68,6 +69,9 @@ instance FromAttrVal Integer where
 instance FromAttrVal Double where
     fromAttrVal = T.rational
 
+instance FromAttrVal Scientific where
+    fromAttrVal = T.rational
+
 instance FromAttrVal Bool where
     fromAttrVal x | x == "1" || x == "true"  = readSuccess True
                   | x == "0" || x == "false" = readSuccess False