Missing index actions

[alexfmpe]

beam-automigrate/src/Database/Beam/AutoMigrate/Types.hs

Line 213 in 93f86a2

data EditAction

does not currently represent creating/dropping an index (though it does for constraints)

[jrpotter]

I ended up getting confused as to how to properly do this as well. I tried a couple of different things, including somehow tracking migrations in the same way beam-migrate, but at the end of it, I used the following snippet and manually added indices after running any automatically created migrations:

createIndex
  :: forall be db tbl ty
   . Beamable tbl
  => DatabaseEntity be db (TableEntity tbl)
  -> (TableSettings tbl -> TableField tbl ty)
  -> PgCommandSyntax
createIndex table column =
  let tName = table ^. dbEntityDescriptor . dbEntityName
      settings = dbTableSettings $ table ^. dbEntityDescriptor
      cName = column settings ^. fieldName
   in PgCommandSyntax PgCommandTypeDdl $ emit $ T.encodeUtf8
        ( "CREATE INDEX IF NOT EXISTS " <> sqlEscaped (tName <> "_" <> cName) <>
          " ON " <> sqlEscaped tName <> " (" <> sqlEscaped cName <> ");\n"
        )

Doesn't feel like the right solution but a potential workaround until something better makes its way upstream?