app/Gyehoek/Syntax.hs

@@ -13,6 +13,7 @@ import Prelude hiding ((.), id)
 import Control.Category
 import Data.List.NonEmpty (NonEmpty ((:|)))
 import Gyehoek.Sexp qualified
+import Control.Lens (Each)
 
 
 type Name = Text
@@ -24,6 +25,8 @@ data Prim e
   | PrimDiv e e
   deriving (Show, Generic, Functor, Foldable, Traversable)
 
+instance Each (Prim e) (Prim e') e e'
+
 data Lit
   = LitInt Int
   | LitNil