khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +03:00
Code Issues Projects Releases Wiki Activity

Add Persistable instances for HDBC.

Browse Source
This commit is contained in:
Kei Hibino 2013-04-13 19:22:01 +09:00
parent 1d1cefbc19
commit 014577815d
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
schema-th/src/Database/HDBC/Record/Persistable.hs Normal file
View File

@ -0,0 +1,32 @@
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
module Database.HDBC.Record.Persistable (
persistableSingleton
) where
import Database.Record.Persistable
(Singleton, singleton, runSingleton,
persistableNullValue, PersistableNull (..),
PersistableValue, persistableValue,
PersistableRecord, persistableRecordFromValue,
Persistable (persistable))
import Data.Convertible (Convertible)
import Database.HDBC (SqlValue(SqlNull), fromSql, toSql)
persistableSqlValue :: (Convertible SqlValue a, Convertible a SqlValue)
=> PersistableValue SqlValue (Singleton a)
persistableSqlValue = persistableValue (singleton . fromSql) (toSql . runSingleton)
persistableSingleton :: (Convertible SqlValue a, Convertible a SqlValue)
=> PersistableRecord SqlValue (Singleton a)
persistableSingleton = persistableRecordFromValue persistableSqlValue
instance PersistableNull SqlValue where
persistableNull = persistableNullValue SqlNull
instance (Convertible SqlValue a, Convertible a SqlValue)
=> Persistable SqlValue (Singleton a) where
persistable = persistableSingleton