ES: bugfix in Transformations/Util

grin-compiler · Jan 22, 2020 · e2a5896 · e2a5896
1 parent a915bcb
commit e2a5896
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/grin/src/Transformations/ExtendedSyntax/Util.hs b/grin/src/Transformations/ExtendedSyntax/Util.hs
@@ -44,6 +44,7 @@ foldNameUseExpF f = \case
   SReturnF val      -> foldNames f val
   SStoreF v         -> f v
   SUpdateF p v      -> f p <> f v
+  SFetchF p         -> f p
   _                 -> mempty
 
 data DefRole = FunName | FunParam | BindVar | AltVar