From d73b63667b830c9200ad118d49af65d50cf0e0a2 Mon Sep 17 00:00:00 2001 From: Pav Lucistnik Date: Sat, 9 Jul 2005 00:54:45 +0000 Subject: - Update to 0.7.0 - Unbreak PR: ports/83122 Submitted by: Jason Stone (maintainer) --- net-im/ginsu/files/patch-CWString.hsc | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 net-im/ginsu/files/patch-CWString.hsc (limited to 'net-im/ginsu/files/patch-CWString.hsc') diff --git a/net-im/ginsu/files/patch-CWString.hsc b/net-im/ginsu/files/patch-CWString.hsc new file mode 100644 index 000000000000..7cbf2a06e95f --- /dev/null +++ b/net-im/ginsu/files/patch-CWString.hsc @@ -0,0 +1,29 @@ +--- CWString.hsc.orig Wed Jul 6 02:16:58 2005 ++++ CWString.hsc Wed Jul 6 02:18:26 2005 +@@ -36,6 +36,7 @@ + + import Data.Bits + import Foreign.C.String(withCString,CString,CStringLen,CWString,CWStringLen) ++import qualified Foreign.C.String as FS + import Foreign.C.Types + import Char + import Foreign +@@ -270,12 +271,12 @@ + charIsRepresentable :: Char -> IO Bool + charIsRepresentable ch = return $ isLatin1 ch + +-withLCString = withCString +-withLCStringLen = withCStringLen +-newLCString = newCString +-newLCStringLen = newCStringLen +-peekLCString = peekCString +-peekLCStringLen = peekCStringLen ++withLCString = FS.withCString ++withLCStringLen = FS.withCStringLen ++newLCString = FS.newCString ++newLCStringLen = FS.newCStringLen ++peekLCString = FS.peekCString ++peekLCStringLen = FS.peekCStringLen + + #endif + -- cgit v1.2.3