diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-07-04 13:51:27 +0000 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-07-04 13:51:27 +0000 |
| commit | 9031382038e9c2dc753c297f0589a9148ac4f8b0 (patch) | |
| tree | 43db32dfeac02b0b19a666fe8c33181c83b0fc8f | |
| parent | 01f449f4ffd2c4f23bfe5698b9f1b98a86276900 (diff) | |
| download | haskell-9031382038e9c2dc753c297f0589a9148ac4f8b0.tar.gz | |
MkCore: Fix some note names
| -rw-r--r-- | compiler/coreSyn/MkCore.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/coreSyn/MkCore.hs b/compiler/coreSyn/MkCore.hs index 7d9ef144a4..d9a7a21f2f 100644 --- a/compiler/coreSyn/MkCore.hs +++ b/compiler/coreSyn/MkCore.hs @@ -323,17 +323,17 @@ Usually we want the former, but occasionally the latter. -} -- | Build a small tuple holding the specified variables --- One-tuples are flattened; see Note [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkCoreVarTup :: [Id] -> CoreExpr mkCoreVarTup ids = mkCoreTup (map Var ids) -- | Build the type of a small tuple that holds the specified variables --- One-tuples are flattened; see Note [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkCoreVarTupTy :: [Id] -> Type mkCoreVarTupTy ids = mkBoxedTupleTy (map idType ids) -- | Build a small tuple holding the specified expressions --- One-tuples are flattened; see NOte [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkCoreTup :: [CoreExpr] -> CoreExpr mkCoreTup [] = Var unitDataConId mkCoreTup [c] = c @@ -357,7 +357,7 @@ mkCoreTupBoxity Boxed exps = mkCoreTup exps mkCoreTupBoxity Unboxed exps = mkCoreUbxTup (map exprType exps) exps -- | Build a big tuple holding the specified variables --- One-tuples are flattened; see Note [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkBigCoreVarTup :: [Id] -> CoreExpr mkBigCoreVarTup ids = mkBigCoreTup (map Var ids) @@ -369,17 +369,17 @@ mkBigCoreVarTup1 [id] = mkCoreConApps (tupleDataCon Boxed 1) mkBigCoreVarTup1 ids = mkBigCoreTup (map Var ids) -- | Build the type of a big tuple that holds the specified variables --- One-tuples are flattened; see Note [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkBigCoreVarTupTy :: [Id] -> Type mkBigCoreVarTupTy ids = mkBigCoreTupTy (map idType ids) -- | Build a big tuple holding the specified expressions --- One-tuples are flattened; see Note [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkBigCoreTup :: [CoreExpr] -> CoreExpr mkBigCoreTup = mkChunkified mkCoreTup -- | Build the type of a big tuple that holds the specified type of thing --- One-tuples are flattened; see Note [Flattening of one-tuples] +-- One-tuples are flattened; see Note [Flattening one-tuples] mkBigCoreTupTy :: [Type] -> Type mkBigCoreTupTy = mkChunkified mkBoxedTupleTy |