Add back links to selected content headers

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index cc6a5c6..5697bbe 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -138,8 +138,9 @@ setup = do
                 H.ul ! A.id "peer_list" $ return ()
 
         H.div ! A.id "conversation" ! A.class_ "selected-content" $ do
-            H.h2 ! A.id "msg_header" $ do
-                return ()
+            H.h2 $ do
+                H.span ! A.id "msg_header" $ return ()
+                H.a ! A.href "#" ! A.class_ "back-button" $ "back"
             H.div ! A.id "msg_list" $ do
                 H.ul $ return ()
             H.form ! A.id "msg_form" ! A.action "javascript:void(0);" $ do
@@ -151,6 +152,7 @@ setup = do
                 "Peer: "
                 H.span ! A.id "peer_name_value" $ do
                     return ()
+                H.a ! A.href "#" ! A.class_ "back-button" $ "back"
             H.div ! A.class_ "content" $ do
                 H.div ! A.id "peer_address" $ do
                     H.span ! A.class_ "label" $ "Address:"
@@ -167,6 +169,7 @@ setup = do
         H.div ! A.id "account_details" ! A.class_ "selected-content" $ do
             H.h2 $ do
                 "Your account"
+                H.a ! A.href "#" ! A.class_ "back-button" $ "back"
             H.div ! A.class_ "content" $ do
                 H.div ! A.class_ "notice" $ do
                     "All data are stored locally in browser storage.\