34047e1f5f
* rewriting tests * tests now run in 1.45 seconds * tests pass * fix json * fix tests * add helper for setting the database state * clean things up a bit
37 lines
1020 B
Haskell
37 lines
1020 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE DerivingStrategies #-}
|
|
{-# LANGUAGE FlexibleContexts #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE RankNTypes #-}
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
{-# LANGUAGE StandaloneDeriving #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE UndecidableInstances #-}
|
|
|
|
module PostgreSQL.MigrateJSON where
|
|
|
|
import Common.Test.Import hiding (Value, from, on)
|
|
|
|
import Data.Aeson (Value)
|
|
import Database.Esqueleto.Legacy (from)
|
|
import Database.Esqueleto.PostgreSQL.JSON (JSONB)
|
|
import Database.Persist.TH
|
|
|
|
-- JSON Table for PostgreSQL
|
|
share [mkPersist sqlSettings, mkMigrate "migrateJSON"] [persistUpperCase|
|
|
Json
|
|
value (JSONB Value)
|
|
deriving Show
|
|
|]
|
|
|
|
cleanJSON
|
|
:: forall m. MonadIO m
|
|
=> SqlPersistT m ()
|
|
cleanJSON = delete $ from $ \(_ :: SqlExpr (Entity Json)) -> return ()
|