{-# LANGUAGE TypeFamilies #-} module Classes.FromDatabase where import Data.Kind (Type) class FromDatabase a where type OutTuple a :: Type fromDatabase :: OutTuple a -> a