forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Adapt to changes in persistent-migration

Browse source
This commit is contained in:
fr33domlover 2018-02-27 03:03:24 +00:00
parent 829fd72fef
commit fb47407f2b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Vervis/Migration.hs
View file

@ -23,6 +23,8 @@ import Prelude
import Control.Monad.IO.Class (MonadIO) import Control.Monad.IO.Class (MonadIO)
import Control.Monad.Trans.Reader (ReaderT, runReaderT) import Control.Monad.Trans.Reader (ReaderT, runReaderT)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Data.Proxy
import Data.Text (Text)
import Database.Persist import Database.Persist
import Database.Persist.Sql (SqlBackend, toSqlKey) import Database.Persist.Sql (SqlBackend, toSqlKey)
@ -36,7 +38,11 @@ changes :: MonadIO m => [SchemaT SqlBackend m ()]
changes = changes =
[ addField "Workflow" [ addField "Workflow"
(Just "'WSSharer'") (Just "'WSSharer'")
(Field "scope" (FTPrim SqlString) NotNull) (Field
"scope"
(FTPrim $ backendDataType (Proxy :: Proxy Text))
FieldRequired
)
--, lift $ do --, lift $ do
] ]