mateamt/src/Classes/ToDatabase.hs

9 lines
143 B
Haskell
Raw Normal View History

{-# LANGUAGE TypeFamilies #-}
module Classes.ToDatabase where
class ToDatabase a where
type InTuple a :: *
toDatabase :: a -> InTuple a