Adapt to changes in persistent-migration

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
     ]