X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FTeam.hs;h=070873947cf9f6e70824f9ec5fba5d41a565ccb5;hb=26ca22c40d96e7fae3fe54a97c98e096d0cbfc7f;hp=2f58acf6de5817903e37643a194158bb0842ff02;hpb=3a8d465bcc6f36b6e7601cf1902e575171aa7beb;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/Team.hs b/src/TSN/Team.hs
index 2f58acf..0708739 100644
--- a/src/TSN/Team.hs
+++ b/src/TSN/Team.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE QuasiQuotes #-}
@@ -22,12 +23,14 @@ module TSN.Team (
 where
 
 -- System imports
+import Data.Vector.HFixed ( HVector )
 import Database.Groundhog () -- Required for some String instance
 import Database.Groundhog.Core ( PersistEntity(..) )
 import Database.Groundhog.TH (
   defaultCodegenConfig,
   groundhog,
   mkPersist )
+import qualified GHC.Generics as GHC ( Generic )
 
 -- Local imports
 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!
     }
-  deriving (Eq, Show)
+  deriving (Eq, GHC.Generic, Show)
 
+-- | Needed for 'H.convert'.
+--
+instance HVector Team
 
 -- * VTeam / HTeam