From d84e5d20439f613673dd337e72b62d38a02c4de1 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Tue, 13 Mar 2018 13:41:29 -0400 Subject: [PATCH] otiose comments --- src/Data/Syntax/Statement.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Data/Syntax/Statement.hs b/src/Data/Syntax/Statement.hs index 0e70e03d4..51c9cd8bb 100644 --- a/src/Data/Syntax/Statement.hs +++ b/src/Data/Syntax/Statement.hs @@ -185,7 +185,6 @@ instance Eq1 NoOp where liftEq = genericLiftEq instance Ord1 NoOp where liftCompare = genericLiftCompare instance Show1 NoOp where liftShowsPrec = genericLiftShowsPrec --- TODO: Implement Eval instance for NoOp instance Evaluatable NoOp where eval _ = unit @@ -198,7 +197,6 @@ instance Eq1 For where liftEq = genericLiftEq instance Ord1 For where liftCompare = genericLiftCompare instance Show1 For where liftShowsPrec = genericLiftShowsPrec --- TODO: Implement Eval instance for For instance Evaluatable For where eval (fmap subtermValue -> For {..}) = forLoop forBefore forCondition forStep forBody