@@ -54,11 +54,15 @@ doubleQuotes s = "\"" <> s <> "\""
55commit :: Text -> Sh ()
55commit :: Text -> Sh ()
56commit msg = void $ run "git"
56commit msg = void $ run "git"
58+ , "user.name=Obelisk Selftest"
60+ , "user.email=noreply@example.com"
57− [ "commit"
61+ , "commit"
58 , "--no-gpg-sign"
62 , "--no-gpg-sign"
59 , "--allow-empty"
63 , "--allow-empty"
61− , doubleQuotes msg
65+ , msg
64-- TODO replace Void and stop using loosely typed synchronous exceptions
68-- TODO replace Void and stop using loosely typed synchronous exceptions