Remove stale comment

This commit is contained in:
Jonathan Daugherty 2015-07-07 18:32:05 -07:00
parent b7367c3614
commit f6b1341df8

View File

@ -373,9 +373,6 @@ cropResultToContext result = do
cropToContext :: Widget -> Widget
cropToContext p =
-- XXX should this be fixed/fixed? Seems like no, because these are
-- about how it fills space given regardless of cropping. This same
-- consideration applies to the other crop functions.
Widget (hSize p) (vSize p) $ (render p >>= cropResultToContext)
cropLeftBy :: Int -> Widget -> Widget