[project @ 1999-12-20 10:18:36 by simonpj]

[ghc-hetmet.git] / ghc / lib / std / PrelCCall.lhs

diff --git a/ghc/lib/std/PrelCCall.lhs b/ghc/lib/std/PrelCCall.lhs
index 6f886ff..d8c1eb4 100644 (file)
--- a/ghc/lib/std/PrelCCall.lhs
+++ b/ghc/lib/std/PrelCCall.lhs
@@ -8,8 +8,8 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 
 module PrelCCall (
-       CCallable(..), CReturnable(..),
-       Word(..)
+       CCallable(..),
+       CReturnable(..)
    ) where
 
 import PrelBase
@@ -24,30 +24,20 @@ import PrelGHC
 
 \begin{code}
 instance CCallable Char
-instance CCallable   Char#
 instance CReturnable Char
 
 instance CCallable   Int
-instance CCallable   Int#
 instance CReturnable Int
 
 -- DsCCall knows how to pass strings...
 instance CCallable   [Char]
 
 instance CCallable   Float
-instance CCallable   Float#
 instance CReturnable Float
 
 instance CCallable   Double
-instance CCallable   Double#
 instance CReturnable Double
 
-data Word = W# Word#   deriving (Eq, Ord) -- Glasgow extension
-
-instance CCallable Word
-instance CCallable Word#
-instance CReturnable Word
-
 instance CReturnable () -- Why, exactly?
 \end{code}