mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 13:02:11 +03:00
61 lines
2.0 KiB
Haskell
61 lines
2.0 KiB
Haskell
|
{-# LANGUAGE TemplateHaskell #-}
|
||
|
|
|
||
|
|
-- | TODO(SOLOMON):
|
||
|
|
module Hasura.Server.Init.Arg.Command.Downgrade
|
||
|
|
( downgradeCommandParser,
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
import Data.FileEmbed qualified as Embed
|
||
|
|
import Data.String qualified as String
|
||
|
|
import Hasura.Prelude
|
||
|
|
import Hasura.Server.Init.Config qualified as Config
|
||
|
|
import Language.Haskell.TH.Syntax qualified as TH
|
||
|
|
import Options.Applicative qualified as Opt
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
-- | This implements the mapping between application versions
|
||
|
|
-- and catalog schema versions.
|
||
|
|
downgradeShortcuts :: [(String, String)]
|
||
|
|
downgradeShortcuts =
|
||
|
|
$( do
|
||
|
|
let s = $(Embed.makeRelativeToProject "src-rsr/catalog_versions.txt" >>= Embed.embedStringFile)
|
||
|
|
|
||
|
|
parseVersions = map (parseVersion . words) . lines
|
||
|
|
|
||
|
|
parseVersion [tag, version] = (tag, version)
|
||
|
|
parseVersion other = error ("unrecognized tag/catalog mapping " ++ show other)
|
||
|
|
TH.lift (parseVersions s)
|
||
|
|
)
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
-- TODO (SOLOMON): Since we are alreay using template haskell in this
|
||
|
|
-- module, catalog versions should only parse if they are in
|
||
|
|
-- 'catalog_versions.txt'.
|
||
|
|
downgradeCommandParser :: Opt.Parser Config.DowngradeOptions
|
||
|
|
downgradeCommandParser =
|
||
|
|
Config.DowngradeOptions
|
||
|
|
<$> choice
|
||
|
|
( Opt.strOption
|
||
|
|
( Opt.long "to-catalog-version"
|
||
|
|
<> Opt.metavar "<VERSION>"
|
||
|
|
<> Opt.help "The target catalog schema version (e.g. 31)"
|
||
|
|
) :
|
||
|
|
map (uncurry shortcut) downgradeShortcuts
|
||
|
|
)
|
||
|
|
<*> Opt.switch
|
||
|
|
( Opt.long "dryRun"
|
||
|
|
<> Opt.help "Don't run any migrations, just print out the SQL."
|
||
|
|
)
|
||
|
|
where
|
||
|
|
shortcut v catalogVersion =
|
||
|
|
Opt.flag'
|
||
|
|
(String.fromString catalogVersion)
|
||
|
|
( Opt.long ("to-" <> v)
|
||
|
|
<> Opt.help ("Downgrade to graphql-engine version " <> v <> " (equivalent to --to-catalog-version " <> catalogVersion <> ")")
|
||
|
|
)
|