{-# LANGUAGE TypeFamilies #-} module Classes.ToDatabase where -- internal imports import Classes.DatabaseRepresentation class DatabaseRepresentation a => ToDatabase a where -- type InTuple a :: Type toDatabase :: a -> Representation a