{-# LANGUAGE TemplateHaskell #-}

module Wire.IndexedUserStore.MigrationStore where

import Polysemy
import Wire.UserSearch.Migration

data IndexedUserMigrationStore m a where
  EnsureMigrationIndex :: IndexedUserMigrationStore m ()
  GetLatestMigrationVersion :: IndexedUserMigrationStore m MigrationVersion
  PersistMigrationVersion :: MigrationVersion -> IndexedUserMigrationStore m ()

makeSem ''IndexedUserMigrationStore