From fb47407f2b9dca5e0d70741d61c62b98cc212b02 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Tue, 27 Feb 2018 03:03:24 +0000
Subject: [PATCH] Adapt to changes in persistent-migration

---
 src/Vervis/Migration.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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