just stack the info on top of the log
commit0d272ac3d162a0307603bd92e46d459ef2c7cc2b
authorCorey O'Connor <corey@ooyala.com>
dateSat 26 Oct 2013, 17:06 (13 years ago)
parent33bf7c8
test/EventEcho.hs+1−1
@@ -29,7 +29,7 @@ update_display :: App ()
2929update_display = do
3030 let info = string def_attr "Press ESC to exit."
3131 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
3333 vty <- ask
3434 liftIO $ update vty pic
3535