From 8f4e783fd18b44708bd545fae53bf62c04fed576 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sun, 9 Feb 2020 23:20:35 -0500 Subject: [PATCH] remove empty generate loops --- src/Convert/ForDecl.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Convert/ForDecl.hs b/src/Convert/ForDecl.hs index e2388e4..723bc42 100644 --- a/src/Convert/ForDecl.hs +++ b/src/Convert/ForDecl.hs @@ -22,6 +22,8 @@ convert = ) convertGenItem :: GenItem -> GenItem +convertGenItem (GenFor (True, _, _) _ _ GenNull) = GenNull +convertGenItem (GenFor (True, _, _) _ _ (GenBlock _ [])) = GenNull convertGenItem (GenFor (True, x, e) a b c) = GenBlock "" genItems where