Comments only

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index 0c430da..8f71aab 100644 (file)
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -571,10 +571,10 @@ mkRecordSelId tycon field_label
 -- it manipulates CoreSyn.
 
 mkReboxingAlt
-  :: [Unique]                  -- Uniques for the new Ids
+  :: [Unique]          -- Uniques for the new Ids
   -> DataCon
-  -> [Var]                     -- Source-level args, including existential dicts
-  -> CoreExpr                  -- RHS
+  -> [Var]             -- Source-level args, including existential dicts
+  -> CoreExpr          -- RHS
   -> CoreAlt
 
 mkReboxingAlt us con args rhs