aboutsummaryrefslogtreecommitdiff
path: root/src/Internal/LayoutDraw.hs
diff options
context:
space:
mode:
authorJosh Rahm <rahm@google.com>2020-02-07 15:16:03 -0700
committerJosh Rahm <rahm@google.com>2020-02-07 15:16:03 -0700
commitbdc2567c9fa936179a57f77750fec6db1de505e7 (patch)
tree89764338318f5bdf5d1af3abad2f0791a0efb37e /src/Internal/LayoutDraw.hs
parent7bd59751a820dbdfb132ae2f06be518bd2f7fad4 (diff)
downloadrde-bdc2567c9fa936179a57f77750fec6db1de505e7.tar.gz
rde-bdc2567c9fa936179a57f77750fec6db1de505e7.tar.bz2
rde-bdc2567c9fa936179a57f77750fec6db1de505e7.zip
Add accordion and circle layouts
Diffstat (limited to 'src/Internal/LayoutDraw.hs')
-rw-r--r--src/Internal/LayoutDraw.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Internal/LayoutDraw.hs b/src/Internal/LayoutDraw.hs
index 4a980b4..7dc2087 100644
--- a/src/Internal/LayoutDraw.hs
+++ b/src/Internal/LayoutDraw.hs
@@ -71,7 +71,7 @@ drawPng l = do
setLineCap LineCapButt
setLineJoin LineJoinMiter
- forM_ (zip (map (second padR) rects) colors) $
+ forM_ (reverse $ zip (map (second padR) rects) colors) $
\((wind, Rectangle x y w h), (r, g, b)) -> do
setSourceRGBA r g b 1