diff --git a/stockquotes/Charts.hs b/stockquotes/Charts.hs
index 8a348d6..7236f39 100644
--- a/stockquotes/Charts.hs
+++ b/stockquotes/Charts.hs
@@ -25,8 +25,8 @@ plotChart title quotes fname = do
         (day, [volume])) | QuoteData {..} <- toList quotes ]
 
     chart = slayouts_layouts .~
-        [ StackedLayout $ candlesLayout,
-          StackedLayout $ volumesLayout
+        [ StackedLayout candlesLayout,
+          StackedLayout volumesLayout
         ]
       $ def