Extra container around conversation list and invite link

1 files changed, 6 insertions, 5 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 55f677d..69a4c96 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -114,11 +114,12 @@ setup = do
             H.div ! A.id "conversations" $ do
                 H.h2 $ do
                     "Conversations"
-                H.div ! A.id "conversation_list" $ return ()
-                H.ul $ do
-                    H.li ! A.id "create_invite_item" $ do
-                        H.a ! A.href "#create-invite" $ do
-                            "Invite contact"
+                H.div ! A.id "conversations_inner" $ do
+                    H.div ! A.id "conversation_list" $ return ()
+                    H.ul $ do
+                        H.li ! A.id "create_invite_item" $ do
+                            H.a ! A.href "#create-invite" $ do
+                                "Invite contact"
 
             H.div ! A.id "peers" !  A.class_ "collapsed" $ do
                 H.h2 $ do