NCG: Fix Typo in Register Allocator Loop Patch

[ghc-hetmet.git] / ghc / compiler / nativeGen / RegisterAlloc.hs

diff --git a/ghc/compiler/nativeGen/RegisterAlloc.hs b/ghc/compiler/nativeGen/RegisterAlloc.hs
index 669000d..7d2ab1b 100644 (file)
--- a/ghc/compiler/nativeGen/RegisterAlloc.hs
+++ b/ghc/compiler/nativeGen/RegisterAlloc.hs
@@ -341,7 +341,7 @@ computeLiveness sccs
 
 
               linearLiveness :: BlockMap RegSet -> [NatBasicBlock]
-                             -> (BlockMap RegSet, AnnBasicBlock])
+                             -> (BlockMap RegSet, [AnnBasicBlock])
               linearLiveness = mapAccumL processBlock
 
              processBlock blockmap input@(BasicBlock block_id instrs)