diff options
| -rw-r--r-- | src/Main.hs | 11 |
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 |