diff --git a/src/Syntax.hs b/src/Syntax.hs
index 526df898a..fd13992bb 100644
--- a/src/Syntax.hs
+++ b/src/Syntax.hs
@@ -164,3 +164,6 @@ instance Listable2 Syntax where
     \/ liftCons1 recur Break
     \/ liftCons1 recur Continue
     \/ liftCons1 (liftTiers recur) BlockStatement
+
+instance Listable leaf => Listable1 (Syntax leaf) where
+  liftTiers = liftTiers2 tiers