@@ -49,16 +49,17 @@ data ObRunState
4949cp :: FilePath
5050cp = $(staticWhich "cp")
5151
52−doubleQuotes :: (IsString a, Semigroup a) => a -> a
53−doubleQuotes s = "\"" <> s <> "\""
54−
5552commit :: Text -> Sh ()
5653commit msg = void $ run "git"
57− [ "commit"
54+ [ "-c"
55+ , "user.name=Obelisk Selftest"
56+ , "-c"
57+ , "user.email=noreply@example.com"
58+ , "commit"
5859 , "--no-gpg-sign"
5960 , "--allow-empty"
6061 , "-m"
61− , doubleQuotes msg
62+ , msg
6263 ]
6364
6465-- TODO replace Void and stop using loosely typed synchronous exceptions