Use Generics.to_tuple in TSN.XML.MLBBoxScore.

[dead/htsn-import.git] / src / Generics.hs

diff --git a/src/Generics.hs b/src/Generics.hs
index 8e6658940fd0330cefe071e491c16bf13c6299d0..76a8a2b8230891f83f84d74601a70fa552cf85e9 100644 (file)
--- a/src/Generics.hs
+++ b/src/Generics.hs
@@ -2,12 +2,35 @@
 {-# LANGUAGE NoMonomorphismRestriction #-}
 {-# LANGUAGE TypeFamilies #-}
 
+-- These can go if the tuple instances are accepted upstream.
+
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE DataKinds #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
 module Generics (
   Generic(..),
   to_tuple )
 where
 
 import Generics.SOP ( Code, Generic(..) )
+import Generics.SOP.TH ( deriveGeneric )
+
+deriveGeneric ''(,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,) -- 20
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,,) -- 25
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
+deriveGeneric ''(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) -- 30
 
 -- | Convert a simple product type into a tuple, generically.
 --