FastMutInt - make #endif be inside \{code} to match #ifdef
[ghc-hetmet.git] / compiler / utils / FastMutInt.lhs
index 86ca0bd..2bdec9b 100644 (file)
@@ -19,10 +19,6 @@ module FastMutInt(
 
 import GHC.Base
 import GHC.IOBase
-
-#if __GLASGOW_HASKELL__ < 411
-newByteArray# = newCharArray#
-#endif
 \end{code}
 
 \begin{code}
@@ -44,6 +40,6 @@ writeFastMutInt :: FastMutInt -> Int -> IO ()
 writeFastMutInt (FastMutInt arr) (I# i) = IO $ \s ->
   case writeIntArray# arr 0# i s of { s ->
   (# s, () #) }
-\end{code}
 #endif
+\end{code}