Fix potential issues for the future

dtekcth · Nov 12, 2024 · 1ee301f · 1ee301f
1 parent ea3a4a2
commit 1ee301f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Model/Linsen.hs b/src/Model/Linsen.hs
@@ -122,6 +122,7 @@ parse day =
                           []    -> fail "Failed to index into richtext"
                           (v:_) -> pure v)
                   >=> (.: "text")
+                  >=> filterM (pure . not . isSpace)
                   >=> \s ->
                     let sameDay = pure day == parseTime swedishTimeLocale "%A %d-%m-%Y" s ||
                                   pure day == parseTime swedishTimeLocale "%d-%m-%Y" s