format xlsx

Author: functora

nix/tools.nix

@@ -34,8 +34,8 @@ with pkgs; let
   ormoluFormat = pkgs.writeShellApplication {
     name = "ormolu-format";
     text = ''
-      ${ormolu}/bin/ormolu --mode inplace \
-        "$(find . -name '*.hs' -not -path './dist*')"
+      find . -name '*.hs' -not -path './dist*' -print0 | \
+        xargs -0 ${ormolu}/bin/ormolu --mode inplace
     '';
   };
   ormoluTest = pkgs.writeShellScriptBin "ormolu-test" ''

pub/xlsx/Setup.hs

@@ -1,2 +1,3 @@
 import Distribution.Simple
+
 main = defaultMain

pub/xlsx/benchmarks/Main.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
+
 module Main (main) where
 
 import Codec.Xlsx
@@ -17,32 +18,44 @@ import Data.Maybe
 main :: IO ()
 main = do
   let filename = "data/testInput.xlsx"
-        -- "data/6000.rows.x.26.cols.xlsx"
+  -- "data/6000.rows.x.26.cols.xlsx"
   bs <- BS.readFile filename
   let bs' = LB.fromStrict bs
       parsed :: Xlsx
       parsed = toXlsxFast bs'
-  idx <- fmap (fromMaybe (error "ix not found")) $ runXlsxM filename $ makeIndexFromName "Sample list"
+  idx <-
+    fmap (fromMaybe (error "ix not found")) $
+      runXlsxM filename $
+        makeIndexFromName "Sample list"
   items <- runXlsxM filename $ collectItems idx
   deepseq (parsed, bs', idx, items) (pure ())
   defaultMain
     [ bgroup
         "readFile"
-        [ bench "with xlsx" $ nf toXlsx bs'
-        , bench "with xlsx fast" $ nf toXlsxFast bs'
-        , bench "with stream (counting)" $ nfIO $ runXlsxM filename $ countRowsInSheet idx
-        , bench "with stream (reading)" $ nfIO $ runXlsxM filename $ readSheet idx (pure . rwhnf)
-        ]
-    , bgroup
+        [ bench "with xlsx" $ nf toXlsx bs',
+          bench "with xlsx fast" $ nf toXlsxFast bs',
+          bench "with stream (counting)" $ nfIO $ runXlsxM filename $ countRowsInSheet idx,
+          bench "with stream (reading)" $
+            nfIO $
+              runXlsxM filename $
+                readSheet idx (pure . rwhnf)
+        ],
+      bgroup
         "writeFile"
-        [ bench "with xlsx" $ nf (fromXlsx 0) parsed
-        , bench "with stream (no sst)" $
-          nfIO $ C.runConduit $
-            void (writeXlsxWithSharedStrings defaultSettings mempty $ C.yieldMany $ view si_row <$> items)
-            C..| C.fold
-        , bench "with stream (sst)" $
-          nfIO $ C.runConduit $
-            void (writeXlsx defaultSettings $ C.yieldMany $ view si_row <$> items)
-            C..| C.fold
+        [ bench "with xlsx" $ nf (fromXlsx 0) parsed,
+          bench "with stream (no sst)" $
+            nfIO $
+              C.runConduit $
+                void
+                  ( writeXlsxWithSharedStrings defaultSettings mempty $
+                      C.yieldMany $
+                        view si_row <$> items
+                  )
+                  C..| C.fold,
+          bench "with stream (sst)" $
+            nfIO $
+              C.runConduit $
+                void (writeXlsx defaultSettings $ C.yieldMany $ view si_row <$> items)
+                  C..| C.fold
         ]
     ]

pub/xlsx/src/Codec/Xlsx.hs

@@ -35,10 +35,11 @@
 -- >       xlsx = def & atSheet "List1" ?~ sheet
 -- >   L.writeFile "example.xlsx" $ fromXlsx ct xlsx
 module Codec.Xlsx
-    ( module X
-    ) where
+  ( module X,
+  )
+where
 
-import Codec.Xlsx.Types as X
+import Codec.Xlsx.Lens as X
 import Codec.Xlsx.Parser as X
+import Codec.Xlsx.Types as X
 import Codec.Xlsx.Writer as X
-import Codec.Xlsx.Lens as X