- db_injuries_id :: DefaultKey Injuries,
- db_team :: InjuriesTeam,
- db_teamno :: Maybe String, -- ^ Can contain non-numerics, e.g. \"ZR2\"
- db_injuries :: String,
- db_updated :: Maybe Bool }
+ _db_injuries_id :: DefaultKey Injuries,
+ _db_team :: InjuriesTeam,
+ _db_teamno :: Maybe String, -- ^ Can contain non-numerics, e.g. \"ZR2\"
+ _db_injuries :: String,
+ _db_updated :: Maybe Bool }
+ deriving ( GHC.Generic )
+
+-- | For 'H.cons'.
+--
+instance H.HVector InjuriesListing