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

diff --git a/src/TSN/Team.hs b/src/TSN/Team.hs
index 1fef0a3..0708739 100644
--- a/src/TSN/Team.hs
+++ b/src/TSN/Team.hs
@@ -23,6 +23,7 @@ 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 (
@@ -32,7 +33,6 @@ import Database.Groundhog.TH (
 import qualified GHC.Generics as GHC ( Generic )
 
 -- Local imports
-import Generics ( Generic(..) )
 import Xml ( Child(..), Db(..) )
 
 
@@ -54,9 +54,9 @@ data Team =
     }
   deriving (Eq, GHC.Generic, Show)
 
--- | Needed for 'Generics.to_tuple'.
+-- | Needed for 'H.convert'.
 --
-instance Generic Team
+instance HVector Team
 
 -- * VTeam / HTeam