2020-08-24 16:52:17 +00:00
|
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
|
module Classes.ToDatabase where
|
|
|
|
|
|
2022-04-15 13:35:53 +00:00
|
|
|
import Data.Kind (Type)
|
|
|
|
|
|
2020-08-24 16:52:17 +00:00
|
|
|
class ToDatabase a where
|
|
|
|
|
|
2022-04-15 13:35:53 +00:00
|
|
|
type InTuple a :: Type
|
2020-08-24 16:52:17 +00:00
|
|
|
|
|
|
|
|
toDatabase :: a -> InTuple a
|
