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 (
import qualified GHC.Generics as GHC ( Generic )
-- Local imports
-import Generics ( Generic(..) )
import Xml ( Child(..), Db(..) )
}
deriving (Eq, GHC.Generic, Show)
--- | Needed for 'Generics.to_tuple'.
+-- | Needed for 'H.convert'.
--
-instance Generic Team
+instance HVector Team
-- * VTeam / HTeam