From cab9a85c22429a3e44c63e5e87546a47b555a737 Mon Sep 17 00:00:00 2001
From: Paulo Costa <paulombcosta@gmail.com>
Date: Sat, 4 Jan 2020 20:21:21 -0300
Subject: [PATCH] Fixing action names

---
 src/PhotoFolders.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/PhotoFolders.elm b/src/PhotoFolders.elm
index 8d5bbb7..e2c83d7 100644
--- a/src/PhotoFolders.elm
+++ b/src/PhotoFolders.elm
@@ -130,7 +130,7 @@ viewRelatedPhoto : String -> Html Msg
 viewRelatedPhoto url =
     img
         [ class "related-photo"
-        , onClick (SelectPhotoUrl url)
+        , onClick (ClickedPhoto url)
         , src (urlPrefix ++ "photos/" ++ url ++ "/thumb")
         ]
         []
@@ -144,7 +144,7 @@ viewFolder path (Folder folder) =
             viewFolder (appendIndex index path) subfolder
 
         folderLabel =
-            label [ onClick (ToggleExpanded path) ] [ text folder.name ]
+            label [ onClick (ClickedFolder path) ] [ text folder.name ]
     in
     if folder.expanded then
         let