projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-06-06 16:03:16 by simonpj]
[ghc-base.git]
/
GHC
/
PArr.hs
diff --git
a/GHC/PArr.hs
b/GHC/PArr.hs
index
d385d84
..
7e0f732
100644
(file)
--- 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.
--
--
-- 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
-- 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,8
+71,6
@@
-- * We might want to add bounds checks that can be deactivated.
--
-- * We might want to add bounds checks that can be deactivated.
--
-{-# OPTIONS -fno-implicit-prelude #-}
-
module GHC.PArr (
[::], -- abstract
module GHC.PArr (
[::], -- abstract
@@
-136,11
+140,11
@@
module GHC.PArr (
indexOfP -- :: (a -> Bool) -> [:a:] -> [:Int:]
) where
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 +:+
infixl 9 !:
infixr 5 +:+