Simplify ContentCache.init function.

2025-01-05 12:57:33 +03:00 · 2021-07-26 11:18:48 -07:00 · 2021-07-26 11:18:48 -07:00 · d22d2bebaf
commit d22d2bebaf
parent 0a77ab5f04
1 changed files with 5 additions and 9 deletions
--- a/src/Pages/ContentCache.elm
+++ b/src/Pages/ContentCache.elm
@ -56,16 +56,12 @@ init :
    Maybe ( Path, ContentJson )
    -> ContentCache
 init maybeInitialPageContent =
-    Dict.fromList []
-        |> (\dict ->
-                case maybeInitialPageContent of
-                    Nothing ->
-                        dict
+    case maybeInitialPageContent of
+        Nothing ->
+            Dict.empty

-                    Just ( urls, contentJson ) ->
-                        dict
-                            |> Dict.insert urls (Parsed contentJson)
-           )
+        Just ( urls, contentJson ) ->
+            Dict.singleton urls (Parsed contentJson)


 {-| Get from the Cache... if it's not already parsed, it will