From: ross <unknown>
Date: Thu, 13 Nov 2003 14:43:58 +0000 (+0000)
Subject: [project @ 2003-11-13 14:43:58 by ross]
X-Git-Tag: nhc98-1-18-release~444
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ea715b2c8255eefb3ce3dc434ee6e59f3229bde9;p=haskell-directory.git

[project @ 2003-11-13 14:43:58 by ross]
Hugs-only tweak
---

diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index 4c56b7a..3b2823e 100644
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -192,7 +192,7 @@ instance Storable (T) where {			\
 STORABLE(Char,SIZEOF_INT32,ALIGNMENT_INT32,
 	 readWideCharOffPtr,writeWideCharOffPtr)
 #elif defined(__HUGS__)
-STORABLE(Char,SIZEOF_CHAR,ALIGNMENT_HSCHAR,
+STORABLE(Char,SIZEOF_HSCHAR,ALIGNMENT_HSCHAR,
 	 readCharOffPtr,writeCharOffPtr)
 #endif