[project @ 1996-12-19 18:35:23 by simonpj]

[ghc-hetmet.git] / ghc / lib / concurrent / Parallel.lhs

diff --git a/ghc/lib/concurrent/Parallel.hs b/ghc/lib/concurrent/Parallel.lhs
similarity index 94%
rename from ghc/lib/concurrent/Parallel.hs
rename to ghc/lib/concurrent/Parallel.lhs
index be82831..79609ad 100644 (file)
--- a/ghc/lib/concurrent/Parallel.hs
+++ b/ghc/lib/concurrent/Parallel.lhs
@@ -1,18 +1,16 @@
-{-
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1995-1996
 %
 \section[Parallel]{Parallel Constructs}
--}
 
+\begin{code}
 module Parallel (par, seq -- re-exported
 #if defined(__GRANSIM__)
        , parGlobal, parLocal, parAt, parAtForNow     
 #endif
     ) where
 
-import GHCbase ( par, seq )
-import GHCerr  ( parError )
+import ConcBase        ( par )
 
 #if defined(__GRANSIM__)
 
@@ -31,3 +29,4 @@ parAtForNow (I# w) (I# g) (I# s) (I# p) v x y = case (parAtForNow# x v w g s p y
 #endif
 
 -- Maybe parIO and the like could be added here later.
+\end{code}