From 429397f2cca3b6e7a74b6a24132eae8008accc14 Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Fri, 4 Oct 2013 12:10:30 +0100
Subject: Comments only

---
 compiler/ghci/ByteCodeGen.lhs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'compiler/ghci')

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index 25f6b6693d..9a5a95270c 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -1166,6 +1166,7 @@ maybe_getCCallReturnRep fn_ty
 -- Compile code which expects an unboxed Int on the top of stack,
 -- (call it i), and pushes the i'th closure in the supplied list
 -- as a consequence.
+-- The [Name] is a list of the constructors of this (enumeration) type
 implement_tagToId :: [Name] -> BcM BCInstrList
 implement_tagToId names
    = ASSERT( notNull names )
-- 
cgit v1.2.1