xlsx 0.1.0.2 → 0.1.0.3

raw patch · 3 files changed

+6/−2 lines, 3 files

Files

• src/Codec/Xlsx/Parser.hs +1/−0
• src/Codec/Xlsx/Types.hs +4/−1
• xlsx.cabal +1/−1

@@ -111,6 +111,7 @@     case T.decimal v of       Right (d, _) -> maybeToList $ fmap CellText $ IM.lookup d ss       _ -> []+extractCellValue _ "str" str = [CellText str] extractCellValue _ "n" v =     case T.rational v of       Right (d, _) -> [CellDouble d]

@@ -39,6 +39,9 @@                | CellBool   Bool                deriving (Eq, Show) +-- | Currently cell details include only cell values and style ids+-- (e.g. formulas from @\<f\>@ and inline strings from @\<is\>@+-- subelements are ignored) data Cell = Cell     { _cellStyle  :: Maybe Int     , _cellValue  :: Maybe CellValue@@ -93,7 +96,7 @@ emptyStyles = Styles "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\ \<styleSheet xmlns=\"http://schemas.openxmlformats.org/spreadsheetml/2006/main\"></styleSheet>" --- | convert column number (starting from 1) to its textual form (e.g. 3 -> "C")+-- | convert column number (starting from 1) to its textual form (e.g. 3 -> \"C\") int2col :: Int -> Text int2col = T.pack . reverse . map int2let . base26     where

@@ -1,6 +1,6 @@ Name:                xlsx -Version:             0.1.0.2+Version:             0.1.0.3  Synopsis:            Simple and incomplete Excel file parser/writer Description: