From fae5e3bfc6cfa1280f1bd9463e1c6b2c0eb7a9ca Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 04:04:00 +0000
Subject: [PATCH] [project @ 1997-05-18 04:04:00 by sof] Export Void + correct
 type sig for seq

---
 ghc/lib/required/Prelude.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4