diff --git a/test/Hikaru/Demo.hs b/test/Hikaru/Demo.hs
index 151045557715484dceb69ec623a9ad81f3c4fa51..84a14a173542b2aca0f898c6eff9791bb57599a6 100644
--- a/test/Hikaru/Demo.hs
+++ b/test/Hikaru/Demo.hs
@@ -243,7 +243,7 @@ where
             _otherwise    -> label_ $ lc_ elemLabel
 
         div_ do
-          forM_ elemControls \ctrl@Control{..} -> do
+          forM_ elemControls \ctrl@Control{} -> do
             viewControl_ ctrl
 
           forM_ elemControls \Control{..} -> do