universal-ctags: Finish migrating the updater

1 files changed, 7 insertions, 1 deletions

diff --git a/app/SlackBuilder/Download.hs b/app/SlackBuilder/Download.hs
index 5d4cb8d..d5bd7e8 100644
--- a/app/SlackBuilder/Download.hs
+++ b/app/SlackBuilder/Download.hs
@@ -77,8 +77,14 @@ commit :: Text -> Text -> SlackBuilderT ()
 commit packagePath version = do
     branch' <- SlackBuilderT $ Text.unpack <$> asks branch
     repository' <- SlackBuilderT $ asks repository
+    signature' <- SlackBuilderT $ asks $ signature . maintainer
     let message = Text.unpack
             $ packagePath <> ": Updated for version " <> version
+        mainCommitArguments = ["-C", repository', "commit", "-m", message]
+        commitArguments =
+            if signature'
+            then mainCommitArguments <> ["-S"]
+            else mainCommitArguments
 
     (checkoutExitCode, _, _) <- liftIO
         $ withFile "/dev/null" WriteMode
@@ -89,7 +95,7 @@ commit packagePath version = do
         $ callProcess "git" ["-C", repository', "checkout", "-b", branch', "master"]
     liftIO
         $ callProcess "git" ["-C", repository', "add", Text.unpack packagePath]
-        >> callProcess "git" ["-C", repository', "commit", "-S", "-m", message]
+        >> callProcess "git" commitArguments
   where
     testCheckout repository' branch' nullHandle =
         let createCheckoutProcess = (proc "git" ["-C", repository', "checkout", branch'])