From d13f6e41d49040c854e4d104fd10a2cc23bef9f2 Mon Sep 17 00:00:00 2001 From: Austin Wolfgram Date: Fri, 6 Feb 2026 12:26:30 +0800 Subject: [PATCH] feat: Add writeTsv function --- src/DataFrame/IO/CSV.hs | 3 +++ src/DataFrame/Lazy/IO/CSV.hs | 3 +++ 2 files changed, 6 insertions(+) diff --git a/src/DataFrame/IO/CSV.hs b/src/DataFrame/IO/CSV.hs index 23cca80..daa4832 100644 --- a/src/DataFrame/IO/CSV.hs +++ b/src/DataFrame/IO/CSV.hs @@ -388,6 +388,9 @@ constructOptionalBoxed vec valid = do writeCsv :: FilePath -> DataFrame -> IO () writeCsv = writeSeparated ',' +writeTsv :: FilePath -> DataFrame -> IO () +writeTsv = writeSeparated '\t' + writeSeparated :: -- | Separator Char -> diff --git a/src/DataFrame/Lazy/IO/CSV.hs b/src/DataFrame/Lazy/IO/CSV.hs index 734e7e3..6baf74f 100644 --- a/src/DataFrame/Lazy/IO/CSV.hs +++ b/src/DataFrame/Lazy/IO/CSV.hs @@ -331,6 +331,9 @@ countRows c path = withFile path ReadMode $! go 0 "" writeCsv :: FilePath -> DataFrame -> IO () writeCsv = writeSeparated ',' +writeTsv :: FilePath -> DataFrame -> IO () +writeTsv = writeSeparated '\t' + writeSeparated :: -- | Separator Char ->