From: Michael Orlitzky <michael@orlitzky.com>
Date: Mon, 29 Dec 2014 20:05:49 +0000 (-0500)
Subject: Add a Generics module with a generic to_tuple function.
X-Git-Tag: 0.2.1~60
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=0c13a9f7630d82f8651371b31ee63b55b072ef8d;p=dead%2Fhtsn-import.git

Add a Generics module with a generic to_tuple function.
---

diff --git a/.ghci b/.ghci
index b327063..9eb31fb 100644
--- a/.ghci
+++ b/.ghci
@@ -8,6 +8,7 @@
   src/Configuration.hs
   src/ConnectionString.hs
   src/ExitCodes.hs
+  src/Generics.hs
   src/OptionalConfiguration.hs
   src/TSN/Codegen.hs
   src/TSN/Database.hs
@@ -42,6 +43,7 @@ import CommandLine
 import Configuration
 import ConnectionString
 import ExitCodes
+import Generics
 import OptionalConfiguration
 import TSN.Codegen
 import TSN.Database
diff --git a/doc/TODO b/doc/TODO
index 92290ae..19bad45 100644
--- a/doc/TODO
+++ b/doc/TODO
@@ -57,3 +57,7 @@
    the filename.
 
 7. Combine test XML files where possible.
+
+8. Remove the -XDeriveGeneric argument in test/Doctests.hs; it
+   shouldn't be necessary if doctest picks up the LANGUAGE pragmas on its
+   own.
diff --git a/htsn-import.cabal b/htsn-import.cabal
index 9bf2a64..2b488e2 100644
--- a/htsn-import.cabal
+++ b/htsn-import.cabal
@@ -251,6 +251,7 @@ executable htsn-import
     hslogger                    >= 1.2,
     htsn-common                 >= 0.0.1,
     hxt                         >= 9.3,
+    generics-sop                >= 0.1,
     groundhog                   >= 0.5,
     groundhog-postgresql        >= 0.5,
     groundhog-sqlite            >= 0.5,
@@ -276,6 +277,7 @@ executable htsn-import
     Configuration
     ConnectionString
     ExitCodes
+    Generics
     OptionalConfiguration
     TSN.Codegen
     TSN.Database
@@ -341,6 +343,7 @@ test-suite testsuite
     hslogger                    >= 1.2,
     htsn-common                 >= 0.0.1,
     hxt                         >= 9.3,
+    generics-sop                >= 0.1,
     groundhog                   >= 0.5,
     groundhog-postgresql        >= 0.5,
     groundhog-sqlite            >= 0.5,
@@ -410,6 +413,7 @@ test-suite shelltests
     configurator                >= 0.2,
     directory                   >= 1.2,
     filepath                    >= 1.3,
+    generics-sop                >= 0.1,
     hslogger                    >= 1.2,
     htsn-common                 >= 0.0.1,
     hxt                         >= 9.3,
diff --git a/test/Doctests.hs b/test/Doctests.hs
index af4bcb5..b78ae0f 100644
--- a/test/Doctests.hs
+++ b/test/Doctests.hs
@@ -9,5 +9,7 @@ import Test.DocTest ( doctest )
 main :: IO ()
 main = doctest [ "-isrc",
                  "-idist/build/autogen",
+                 "-XDeriveGeneric", --FIXME, shouldn't be needed.
+                 "src/Generics.hs",
                  "src/TSN/Codegen.hs",
                  "src/TSN/Picklers.hs"]