mateamt/src/Classes/ToDatabase.hs

10 lines
171 B
Haskell

{-# LANGUAGE TypeFamilies #-}
module Classes.ToDatabase where
import Data.Kind (Type)
class ToDatabase a where
type InTuple a :: Type
toDatabase :: a -> InTuple a