2020-08-24 16:52:17 +00:00
|
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
module Classes.ToDatabase where
|
|
|
|
|
2022-07-24 13:26:55 +00:00
|
|
|
-- internal imports
|
2022-04-15 13:35:53 +00:00
|
|
|
|
2022-07-24 13:26:55 +00:00
|
|
|
import Classes.DatabaseRepresentation
|
2020-08-24 16:52:17 +00:00
|
|
|
|
2022-07-24 13:26:55 +00:00
|
|
|
class DatabaseRepresentation a => ToDatabase a where
|
2020-08-24 16:52:17 +00:00
|
|
|
|
2022-07-24 13:26:55 +00:00
|
|
|
-- type InTuple a :: Type
|
|
|
|
|
|
|
|
toDatabase :: a -> Representation a
|