Fix potential issues for the future (#149)

dtekcth · Nov 13, 2024 · 829e530 · 829e530
1 parent ea3a4a2
commit 829e530
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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