From ea715b2c8255eefb3ce3dc434ee6e59f3229bde9 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Thu, 13 Nov 2003 14:43:58 +0000
Subject: [PATCH] [project @ 2003-11-13 14:43:58 by ross] Hugs-only tweak

---
 Foreign/Storable.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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