From 829e530d60ec884a23f47169106be18834fe5b19 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Nor=20F=C3=BChr?=
 <49118502+The1Penguin@users.noreply.github.com>
Date: Wed, 13 Nov 2024 09:04:44 +0100
Subject: [PATCH] Fix potential issues for the future (#149)

---
 src/Model/Linsen.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Model/Linsen.hs b/src/Model/Linsen.hs
index e95f086..726e3d7 100644
--- a/src/Model/Linsen.hs
+++ b/src/Model/Linsen.hs
@@ -120,10 +120,11 @@ parse day =
                   (.: "children")
                   >=> (\case
                           []    -> fail "Failed to index into richtext"
-                          (v:_) -> pure v)
+                          v -> pure $ mconcat v)
                   >=> (.: "text")
+                  >=> filterM (pure . not . isSpace)
                   >=> \s ->
-                    let sameDay = pure day == parseTime swedishTimeLocale "%A %d-%m-%Y" s ||
+                    let sameDay = pure day == parseTime swedishTimeLocale "%A%d-%m-%Y" s ||
                                   pure day == parseTime swedishTimeLocale "%d-%m-%Y" s
                      in if | sameDay && length v' >= 9 -> pure v'
                            | sameDay                   -> pure mempty