From 0e09e0fcbffda8108586474eadf29c387aa40a7b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Mon, 18 Apr 2022 16:29:28 -0400
Subject: [PATCH] created Data.CSV.Slurp module

---
 csv-slurp.cabal            |  2 ++
 src/Data/CSV/Slurp.hs      | 28 ++++++++++++++++++++++++++++
 test/Data/CSV/SlurpSpec.hs | 28 ++++++++++++++++++++++++++++
 test/Spec.hs               |  6 +++++-
 4 files changed, 63 insertions(+), 1 deletion(-)
 create mode 100644 src/Data/CSV/Slurp.hs
 create mode 100644 test/Data/CSV/SlurpSpec.hs

diff --git a/csv-slurp.cabal b/csv-slurp.cabal
index a66f224..d4b4e95 100644
--- a/csv-slurp.cabal
+++ b/csv-slurp.cabal
@@ -21,6 +21,7 @@ extra-source-files:
 
 library
   exposed-modules:
+      Data.CSV.Slurp
       Lib
   other-modules:
       Paths_csv_slurp
@@ -36,6 +37,7 @@ test-suite csv-slurp-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs
   other-modules:
+      Data.CSV.SlurpSpec
       Paths_csv_slurp
   hs-source-dirs:
       test
diff --git a/src/Data/CSV/Slurp.hs b/src/Data/CSV/Slurp.hs
new file mode 100644
index 0000000..15a618b
--- /dev/null
+++ b/src/Data/CSV/Slurp.hs
@@ -0,0 +1,28 @@
+{-|
+
+Module      : Data.CSV.Slurp
+Description : works with CSV files
+Copyright   : (C) Jonathan Lamothe
+License     : GPL-3.0-or-later
+Maintainer  : jonathan@jlamothe.net
+Stability   : experimental
+Portability : POSIX
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or (at
+your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+-}
+
+module Data.CSV.Slurp where
+
+--jl
diff --git a/test/Data/CSV/SlurpSpec.hs b/test/Data/CSV/SlurpSpec.hs
new file mode 100644
index 0000000..e7aef42
--- /dev/null
+++ b/test/Data/CSV/SlurpSpec.hs
@@ -0,0 +1,28 @@
+{-
+
+csv-slurp
+Copyright (C) Jonathan Lamothe <jonathan@jlamothe.net>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or (at
+your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+-}
+
+module Data.CSV.SlurpSpec (spec) where
+
+import Test.Hspec (Spec, describe)
+
+spec :: Spec
+spec = describe "Data.CSV.Slurp" $ return ()
+
+--jl
diff --git a/test/Spec.hs b/test/Spec.hs
index a4895a0..e9dacd8 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -18,9 +18,13 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 -}
 
+module Main where
+
 import Test.Hspec (hspec)
 
+import qualified Data.CSV.SlurpSpec as Slurp
+
 main :: IO ()
-main = hspec $ return ()
+main = hspec $ Slurp.spec
 
 --jl