Add Generic instance for TSN.Team.

diff --git a/src/TSN/Team.hs b/src/TSN/Team.hs
index 2f58acf6de5817903e37643a194158bb0842ff02..1fef0a3447a2afaa4bfb579d3434bee10421dc7d 100644 (file)
--- a/src/TSN/Team.hs
+++ b/src/TSN/Team.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric #-}

 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE QuasiQuotes #-}


@@ -28,8 +29,10 @@ import Database.Groundhog.TH (
   defaultCodegenConfig,
   groundhog,
   mkPersist )
   defaultCodegenConfig,
   groundhog,
   mkPersist )

+import qualified GHC.Generics as GHC ( Generic )

 
 -- Local imports
 
 -- Local imports

+import Generics ( Generic(..) )

 import Xml ( Child(..), Db(..) )
 
 
 import Xml ( Child(..), Db(..) )
 
 


@@ -49,8 +52,11 @@ data Team =
                                   --   don't have them for some teams.
     name :: Maybe String -- ^ Some teams don't even have names!
     }
                                   --   don't have them for some teams.
     name :: Maybe String -- ^ Some teams don't even have names!
     }

-  deriving (Eq, Show)
+  deriving (Eq, GHC.Generic, Show)

 
 

+-- | Needed for 'Generics.to_tuple'.
+--
+instance Generic Team

 
 -- * VTeam / HTeam
 
 
 -- * VTeam / HTeam