diff options
| author | Pav Lucistnik <pav@FreeBSD.org> | 2005-07-09 00:54:45 +0000 |
|---|---|---|
| committer | Pav Lucistnik <pav@FreeBSD.org> | 2005-07-09 00:54:45 +0000 |
| commit | d73b63667b830c9200ad118d49af65d50cf0e0a2 (patch) | |
| tree | 46ab21427633ebeb8a487f947d5b08e8209cf6f1 /net-im/ginsu/files/patch-CWString.hsc | |
| parent | - Update to 2.0.0 (diff) | |
- Update to 0.7.0
- Unbreak
PR: ports/83122
Submitted by: Jason Stone <jason-fbsd-ports-ginsu@shalott.net> (maintainer)
Notes
Notes:
svn path=/head/; revision=138743
Diffstat (limited to 'net-im/ginsu/files/patch-CWString.hsc')
| -rw-r--r-- | net-im/ginsu/files/patch-CWString.hsc | 29 |
1 files changed, 29 insertions, 0 deletions
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 + |