{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell #-}
module Database.HDBC.Record.Persistable () where
import Database.Record (PersistableType (..))
import Database.Record.Persistable (unsafePersistableSqlTypeFromNull)
import Database.HDBC.Record.InternalTH (derivePersistableInstancesFromConvertibleSqlValues)
import Database.HDBC (SqlValue(SqlNull))
instance PersistableType SqlValue where
persistableType = unsafePersistableSqlTypeFromNull SqlNull
$(derivePersistableInstancesFromConvertibleSqlValues)