Commit 50bd6cac authored by Mike Ledger's avatar Mike Ledger

wibble

parent 706df18e
......@@ -328,7 +328,10 @@ main = do
(unHelpful infiles) >>= \o ->
-- write output
let (labelled, r) = combine opts o
writeCsv opts' = output opts' . Csv.encodeWith encodeOpts . mapM_ (S.yield . uncurry (:)) . Map.toList
writeCsv opts' = output opts'
. Csv.encodeWith encodeOpts
. mapM_ (S.yield . uncurry (:))
. Map.toList
in do
writeCsv opts r
when (saveLabels == Just True) $ iforM_ labelled $ \name -> writeCsv opts
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment