From 19b432796bdcba029924919de356078de532444e Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Wed, 20 Jul 2011 11:04:00 +0000 Subject: [PATCH] Fix misleading comment. --- frontends/OccamInferTypes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/frontends/OccamInferTypes.hs b/frontends/OccamInferTypes.hs index a5cda10..c88efaf 100644 --- a/frontends/OccamInferTypes.hs +++ b/frontends/OccamInferTypes.hs @@ -453,7 +453,7 @@ inferTypes = occamOnlyPass "Infer types" wrap (recurse body) >>* A.Spec mspec (A.Specification m n st') doStructured s = descend s - -- The second parameter is a modifier (wrapper) for the descent into the body + -- The second result is a modifier (wrapper) for the descent into the body doSpecType :: ( AlloyA (A.Structured t) InferTypeOps BaseOpM , AlloyA (A.Structured t) BaseOpM InferTypeOps , Data t) => A.Name -> A.SpecType -> ReaderT (A.Structured t) InferTypeM