Linsen lieks changing their "api" (#147)

dtekcth · Nov 9, 2024 · ea3a4a2 · ea3a4a2
1 parent ac064ce
commit ea3a4a2
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Model/Linsen.hs b/src/Model/Linsen.hs
@@ -123,7 +123,8 @@ parse day =
                           (v:_) -> pure v)
                   >=> (.: "text")
                   >=> \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
                            | otherwise                 -> fail "Unable to parse day"))
@@ -152,8 +153,8 @@ parse day =
             $   (.: "children")
             >=> \case
                   [] -> pure mempty
-                  vs -> strip . replace "/ " ", "
-                        <$> last vs .: "text"
+                  vs -> strip . replace "/ " ", " . mconcat
+                        <$> mapM (.: "text") vs
 
 fetchAndCreateLinsen
   :: (MonadIO m, MonadThrow m)