@@ -29,7 +29,7 @@ update_display :: App ()
29update_display = do
29update_display = do
30 let info = string def_attr "Press ESC to exit."
30 let info = string def_attr "Press ESC to exit."
31 event_log <- foldMap (string def_attr) <$> get
31 event_log <- foldMap (string def_attr) <$> get
32− let pic = pic_for_layers [info,event_log]
32+ let pic = pic_for_image $ info <-> event_log
33 vty <- ask
33 vty <- ask
34 liftIO $ update vty pic
34 liftIO $ update vty pic