From: sof <unknown>
Date: Sun, 18 May 1997 04:04:00 +0000 (+0000)
Subject: [project @ 1997-05-18 04:04:00 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~691
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fae5e3bfc6cfa1280f1bd9463e1c6b2c0eb7a9ca;p=ghc-hetmet.git

[project @ 1997-05-18 04:04:00 by sof]
Export Void + correct type sig for seq
---

diff --git a/ghc/lib/required/Prelude.lhs b/ghc/lib/required/Prelude.lhs
index 2870fa9..6a52ee4 100644
--- a/ghc/lib/required/Prelude.lhs
+++ b/ghc/lib/required/Prelude.lhs
@@ -16,8 +16,8 @@ module Prelude (
     Num(..), 
     Eval(..), seq, strict,
     Bool(..), (&&), (||), not, otherwise,
-    Char, String, Int, Integer, Float, Double,
-    Maybe(..), 
+    Char, String, Int, Integer, Float, Double, Void,
+    Maybe(..), maybe,
     Either(..), either,
     ()(..),		-- The unit type
 
@@ -73,6 +73,7 @@ strict      :: Eval a => (a -> b) -> a -> b
 strict f x  = x `seq` f x
 
 {-# INLINE seq  #-}
+seq :: Eval a => a -> b -> b
 #ifdef __CONCURRENT_HASKELL__
 seq  x y = case (seq#  x) of { 0# -> parError; _ -> y }
 #else