X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FPArr.hs;h=a1e3deb775248e30e0775745b4fd42a4ba2d5581;hb=ce93a6ca758a5f59631fb2eb9bcc34254e6a195b;hp=d385d849f89430b71bb1faa411f095ad80565409;hpb=9917dc299e1275a8d40df3abec52231b6d4d0fdf;p=haskell-directory.git

diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index d385d84..a1e3deb 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -1,11 +1,17 @@
---  $Id: PArr.hs,v 1.1 2002/02/11 17:11:12 simonmar Exp $
---
---  Copyright (c) [2001..2002] Manuel M T Chakravarty & Gabriele Keller
+{-# OPTIONS -fparr #-}
+
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  GHC.PArr
+-- Copyright   :  (c) 2001-2002 Manuel M T Chakravarty & Gabriele Keller
+-- License     :  see libraries/base/LICENSE
+-- 
+-- Maintainer  :  Manuel M. T. Chakravarty <chak@cse.unsw.edu.au>
+-- Stability   :  internal
+-- Portability :  non-portable (GHC Extensions)
 --
 --  Basic implementation of Parallel Arrays.
 --
---- DESCRIPTION ---------------------------------------------------------------
---
 --  This module has two functions: (1) It defines the interface to the
 --  parallel array extension of the Prelude and (2) it provides a vanilla
 --  implementation of parallel arrays that does not require to flatten the
@@ -65,10 +71,8 @@
 --  * We might want to add bounds checks that can be deactivated.
 --
 
-{-# OPTIONS -fno-implicit-prelude #-}
-
 module GHC.PArr (
-  [::],			-- abstract
+  -- [::],		-- Built-in syntax
 
   mapP,			-- :: (a -> b) -> [:a:] -> [:b:]
   (+:+),		-- :: [:a:] -> [:a:] -> [:a:]
@@ -136,11 +140,11 @@ module GHC.PArr (
   indexOfP		-- :: (a -> Bool) -> [:a:] -> [:Int:]
 ) where
 
-import PrelBase
-import PrelST   (ST(..), STRep, runST)
-import PrelList
-import PrelShow
-import PrelRead
+import Prelude
+
+import GHC.ST   ( ST(..), STRep, runST )
+import GHC.Exts	( Int#, Array#, Int(I#), MutableArray#, newArray#,
+		  unsafeFreezeArray#, indexArray#, writeArray# )
 
 infixl 9  !:
 infixr 5  +:+