{-# LANGUAGE TypeFamilies #-} module Classes.FromDatabase where class FromDatabase a where type OutTuple a :: * fromDatabase :: OutTuple a -> a