+{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE QuasiQuotes #-}
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(..) )
-- 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