diff options
| author | Gabor Greif <ggreif@gmail.com> | 2014-06-11 01:37:01 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2014-06-11 20:22:51 +0200 |
| commit | edd5764509c7df65e3f5409888cbacf58435d11e (patch) | |
| tree | 2814d348ae5c3b2d30165b10484b230f9f677802 /compiler/llvmGen/LlvmCodeGen/CodeGen.hs | |
| parent | a9ff7d0819fce392a243549c08299b897f04d555 (diff) | |
| download | haskell-edd5764509c7df65e3f5409888cbacf58435d11e.tar.gz | |
Some typos in comments
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/CodeGen.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index 342b94f93f..517553516b 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -804,7 +804,7 @@ genSwitch cond maybe_ids = do let pairs = [ (ix, id) | (ix,Just id) <- zip [0..] maybe_ids ] let labels = map (\(ix, b) -> (mkIntLit ty ix, blockIdToLlvm b)) pairs - -- out of range is undefied, so lets just branch to first label + -- out of range is undefined, so let's just branch to first label let (_, defLbl) = head labels let s1 = Switch vc defLbl labels |