Remove pointless padding operations from full UI in padding demo

This commit is contained in:
Jonathan Daugherty 2015-06-28 23:07:32 -07:00
parent aac772d573
commit 64a1e3edf5

View File

@ -24,7 +24,7 @@ ui =
app :: App () Event app :: App () Event
app = app =
App { appDraw = const [padBottom $ padRight ui] App { appDraw = const [ui]
, appHandleEvent = resizeOrQuit , appHandleEvent = resizeOrQuit
, appAttrMap = const def , appAttrMap = const def
, appChooseCursor = neverShowCursor , appChooseCursor = neverShowCursor