From 1290402724684a47b5f36f1158b7fbc7b5406a09 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 26 Mar 2024 05:25:42 +0100
Subject: fix: strip `git config` output
---
app/Backend.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/app/Backend.hs b/app/Backend.hs
index af6cebd..a3c1ee8 100644
--- a/app/Backend.hs
+++ b/app/Backend.hs
@@ -168,8 +168,8 @@ data Author = Author
getCommitOf :: CommitHash -> IO Commit
getCommitOf commitHash@WorkingTree = do
date <- maybe getCurrentTime (pure . read) =<< lookupEnv "FAKETIME"
- authorName <- sh "git config user.name"
- authorEmail <- sh "git config user.email"
+ authorName <- T.strip <$> sh "git config user.name"
+ authorEmail <- T.strip <$> sh "git config user.email"
pure
Commit'
{ author = Author authorName authorEmail,
--
cgit v1.2.3