database - Yesod persistente postgresql complejo registro

haskell orm

Question

Estoy usando persistente para guardar los siguientes registros (Time is UTCTime).

type Price = Int
type Volume = Int
share [mkPersist sqlSettings, mkMigrate "migrateBook"]
[persistLowerCase|
Level
limit Price
volumes [Volume]
deriving Show Read Eq
Book
time Time
asks [Level]
bids [Level]
deriving Show Read Eq
|]

Cuando migro las estructuras obtengo una tabla de Libro:

CREATE TABLE book
(
id serial NOT NULL,
"time" timestamp without time zone NOT NULL,
asks character varying NOT NULL,
bids character varying NOT NULL,
CONSTRAINT book_pkey PRIMARY KEY (id )
)

y un nivel de mesa:

 CREATE TABLE level
(
id serial NOT NULL,
"limit" double precision NOT NULL,
volumes character varying NOT NULL,
CONSTRAINT level_pkey PRIMARY KEY (id )
)

Al insertar un libro, la tabla de niveles permanece vacía y la tabla de libros contiene una entrada que contiene las versiones JSON del registro deseado.

Preguntas:

¿Cómo puedo ser persistente para usar los tipos simples reales (por ejemplo, int y time) para las columnas en lugar de JSON para los tipos complejos?

¿Persistent sabe cómo almacenar una relación de muchos a muchos?

por ejemplo, dado un registro A con una lista :: [B], ¿puedo hacer que cree una tercera tabla con

AId | B
-------
1 | b1
1 | b2 etc

Estoy usando los siguientes paquetes:

persistent-postgresql-1.0.3
yesod-persistent-1.1.0.1
Postgres 9.1

Answer 1

En primer lugar, para [Level] , almacenar solo la ID le permite almacenar un tipo simple en una lista json.

type Price = Int
type Volume = Int
share [mkPersist sqlSettings, mkMigrate "migrateBook"]
[persistLowerCase|
Level
limit Price
volumes [Volume]
deriving Show Read Eq
Book
time Time
asks [LevelId]
bids [LevelId]
deriving Show Read Eq
|]

Alternativamente, si necesita consultar a través de la relación, debe definir una tabla "a través de" o M2M, como en un diseño de base de datos relacional normal.

type Price = Int
type Volume = Int
share [mkPersist sqlSettings, mkMigrate "migrateBook"]
[persistLowerCase|
Level
limit Price
volumes [Volume]
deriving Show Read Eq
Book
time Time
deriving Show Read Eq
BookAsk
book BookId
level LevelId
BookBid
book BookId
level LevelId
|]

Como es el caso de, para [Volume] , el problema está en persistent-postgresql . persistente está cableado para PersistList valores de PersistList como JSON, en lugar de usar el soporte nativo de postgres para los tipos de columna de matriz. Si desea solucionar este problema, deberá enviar un problema o una solicitud de extracción.