module Lucienne.DatabaseAble 
  (DatabaseAble (..))
where

import Data.Bson (Document)

class DatabaseAble a where
  toDocument   :: a -> Document
  fromDocument :: Document -> a