diff options
Diffstat (limited to 'net/ginsu/files/patch-CWString.hsc')
| -rw-r--r-- | net/ginsu/files/patch-CWString.hsc | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/net/ginsu/files/patch-CWString.hsc b/net/ginsu/files/patch-CWString.hsc new file mode 100644 index 000000000000..7cbf2a06e95f --- /dev/null +++ b/net/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 + |