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

Update to use integrated Database.Record module.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-09 22:40:40 +09:00
parent 9033e47df4
commit f1d5334d61
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
relational-join/src/Database/Relational/Query/Join.hs
View File

@ -16,7 +16,7 @@ import Prelude hiding (product)
import Control.Monad (liftM, ap)
import Control.Applicative (Applicative (pure, (<*>)))
import Database.Record.Persistable (PersistableWidth)
import Database.Record (PersistableWidth)
import Database.Relational.Query.AliasId.Unsafe (primAlias)
import Database.Relational.Query.AliasId (AliasId, newAliasId, Qualified)

5
relational-join/src/Database/Relational/Query/Pi.hs
View File

@ -9,9 +9,10 @@ module Database.Relational.Query.Pi (
leafIndex,
) where
import Database.Record
(PersistableWidth, persistableWidth, PersistableRecordWidth)
import Database.Record.Persistable
(PersistableWidth, persistableWidth,
PersistableRecordWidth, runPersistableRecordWidth)
(runPersistableRecordWidth)
import Database.Relational.Query.Pi.Unsafe
(PiUnit, offset, Pi ((:*), Leaf), definePiUnit)

5
relational-join/src/Database/Relational/Query/Projection.hs
View File

@ -25,9 +25,10 @@ import Data.Array (Array, listArray)
import qualified Data.Array as Array
import Data.List (intercalate)
import Database.Record
(PersistableWidth, persistableWidth, PersistableRecordWidth)
import Database.Record.Persistable
(PersistableRecordWidth, runPersistableRecordWidth,
PersistableWidth, persistableWidth)
(runPersistableRecordWidth)
import Database.Relational.Query.Pi (Pi)
import qualified Database.Relational.Query.Pi as Pi