+{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE QuasiQuotes #-}
defaultCodegenConfig,
groundhog,
mkPersist )
+import qualified GHC.Generics as GHC ( Generic )
-- Local imports
+import Generics ( Generic(..) )
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 'Generics.to_tuple'.
+--
+instance Generic Team
-- * VTeam / HTeam