2020-08-24 16:52:17 +00:00
|
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
module Classes.FromDatabase 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 => FromDatabase a where
|
2020-08-24 16:52:17 +00:00
|
|
|
|
2022-07-24 13:26:55 +00:00
|
|
|
-- type OutTuple a :: Type
|
|
|
|
|
|
|
|
fromDatabase :: Representation a -> a
|