From 93ed9b8d722f093aea5fa0508ed1efb6e407a81a Mon Sep 17 00:00:00 2001 From: Twan van Laarhoven Date: Thu, 17 Jan 2008 21:50:36 +0000 Subject: [PATCH] Monadify iface/BuildTyCl: use return --- compiler/iface/BuildTyCl.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/iface/BuildTyCl.lhs b/compiler/iface/BuildTyCl.lhs index 534bc5f..66cb645 100644 --- a/compiler/iface/BuildTyCl.lhs +++ b/compiler/iface/BuildTyCl.lhs @@ -210,7 +210,7 @@ buildDataCon src_name declared_infix arg_stricts field_lbls stupid_ctxt dc_ids dc_ids = mkDataConIds wrap_name work_name data_con - ; returnM data_con } + ; return data_con } -- The stupid context for a data constructor should be limited to -- 1.7.10.4