From 5b4154fb74d5a468a0864e2c71af761b4d0687dc Mon Sep 17 00:00:00 2001
From: Fabrizio Ferrai <fabrizio.ferrai@gmail.com>
Date: Mon, 2 Dec 2019 16:43:11 +0200
Subject: [PATCH] Automate updating purescript-docs-search version

---
 app/Curator.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/app/Curator.hs b/app/Curator.hs
index 854d9f162..8d97d28f7 100644
--- a/app/Curator.hs
+++ b/app/Curator.hs
@@ -152,6 +152,7 @@ main = withBinaryFile "curator.log" AppendMode $ \configHandle -> do
     spawnThread "releaseCheckDocsSearch"  $ checkLatestRelease token docsSearchRepo
     --   spago repo
     spawnThread "spagoUpdatePackageSets"  $ spagoUpdatePackageSets token
+    spawnThread "spagoUpdateDocsSearch"   $ spagoUpdateDocsSearch token
     --     TODO: update purescript-metadata repo on purs release
     spawnThread "spagoUpdatePurescript"   $ spagoUpdatePurescriptVersion token
     --   package-sets-metadata repo
@@ -310,6 +311,19 @@ spagoUpdatePurescriptVersion token (NewRepoRelease address newTag) | address ==
     ]
 spagoUpdatePurescriptVersion _ _ = pure ()
 
+
+-- | Whenever there's a new release of the purescript-docs-search, update our version of it
+spagoUpdateDocsSearch :: GitHub.AuthMethod am => am -> Message -> Curator ()
+spagoUpdateDocsSearch token (NewRepoRelease address newTag) | address == docsSearchRepo = do
+  let prTitle = "Update to purescript-docs-search@" <> newTag
+  let prBranchName = "spacchettibotti-docs-search-" <> newTag
+  runAndOpenPR token PullRequest{ prBody = "", prAddress = spagoRepo, ..} (const $ pure ())
+    [ "sed -e 's/docsSearchVersion = .*/docsSearchVersion = " <> surroundQuote newTag <> "/g' -i src/Spago/Prelude.hs"
+    , "git add src"
+    ]
+spagoUpdateDocsSearch _ _ = pure ()
+
+
 -- | Take the latest package set from package-sets master, get a list of all the
 --   packages in there, and thenn query their commits and tags. Once done, send
 --   the package on the bus.