vervis/src/Vervis/Migration.hs

{- This file is part of Vervis.
 -
 - Written in 2016, 2018 by fr33domlover <fr33domlover@riseup.net>.
 -
 - ♡ Copying is an act of love. Please copy, reuse and share.
 -
 - The author(s) have dedicated all copyright and related and neighboring
 - rights to this software to the public domain worldwide. This software is
 - distributed without any warranty.
 -
 - You should have received a copy of the CC0 Public Domain Dedication along
 - with this software. If not, see
 - <http://creativecommons.org/publicdomain/zero/1.0/>.
 -}

module Vervis.Migration
    ( migrateDB
    )
where

import Prelude

import Control.Monad.IO.Class (MonadIO)
import Control.Monad.Trans.Reader (ReaderT, runReaderT)
import Data.ByteString (ByteString)
import Data.Maybe (fromMaybe)
import Data.Proxy
import Data.Text (Text)
import Database.Persist
import Database.Persist.Sql (SqlBackend, toSqlKey)

import Database.Persist.Schema
import Database.Persist.Schema.PostgreSQL (schemaBackend)
import Database.Persist.Migration

import Vervis.Model

changes :: MonadIO m => [SchemaT SqlBackend m ()]
changes =
    [ addField "Workflow"
        (Just "'WSSharer'")
        (Field
            "scope"
            (FTPrim $ backendDataType (Proxy :: Proxy Text))
            FieldRequired
        )
    , changeFieldType "Person" "hash" $
        backendDataType (Proxy :: Proxy ByteString)
    , unsetFieldMaybe "Person" "email" "'no@email'"
    , addField "Person" (Just "TRUE") Field
        { fieldName  = "verified"
        , fieldType  = FTPrim $ backendDataType (Proxy :: Proxy Bool)
        , fieldMaybe = FieldRequired
        }
    , addField "Person" (Just "''") Field
        { fieldName  = "verifiedKey"
        , fieldType  = FTPrim $ backendDataType (Proxy :: Proxy Text)
        , fieldMaybe = FieldRequired
        }
    , addField "Person" (Just "''") Field
        { fieldName  = "resetPassphraseKey"
        , fieldType  = FTPrim $ backendDataType (Proxy :: Proxy Text)
        , fieldMaybe = FieldRequired
        }
    , renameField "Person" "hash" "passphraseHash"
    ]

migrateDB :: MonadIO m => ReaderT SqlBackend m ()
migrateDB = runMigrations schemaBackend changes