From 7676e162cb3b06322f507499a12c5a02ed780e16 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 5 Jan 2017 15:22:49 -0500 Subject: [PATCH] Define a Listable1 instance over Listable leaf => Syntax leaf. --- src/Syntax.hs | 3 +++ 1 file changed, 3 insertions(+) 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