Remove obselete code for update-in-place (which we no longer do)

[ghc-hetmet.git] / compiler / main / BreakArray.hs

diff --git a/compiler/main/BreakArray.hs b/compiler/main/BreakArray.hs
index 788adf2..8d86582 100644 (file)
--- a/compiler/main/BreakArray.hs
+++ b/compiler/main/BreakArray.hs
@@ -1,10 +1,22 @@
+-----------------------------------------------------------------------------
 --
 -- Break Arrays in the IO monad
 -- Entries in the array are Word sized 
 --
+-- (c) The University of Glasgow 2007
+--
+-----------------------------------------------------------------------------
+
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
 
 module BreakArray
   ( BreakArray (BA)
+        -- constructor is exported only for ByteCodeGen
   , newBreakArray
   , getBreak 
   , setBreakOn 
@@ -14,15 +26,14 @@ module BreakArray
 
 import GHC.Exts
 import GHC.IOBase
-import GHC.Prim
 import GHC.Word
 import Constants
 
 data BreakArray = BA (MutableByteArray# RealWorld)
 
 breakOff, breakOn :: Word
-breakOn  = fromIntegral 1
-breakOff = fromIntegral 0
+breakOn  = 1
+breakOff = 0
 
 -- XXX crude
 showBreakArray :: BreakArray -> IO ()