From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 30 Jun 2009 08:41:34 +0000 (+0000)
Subject: avoid a warning
X-Git-Tag: ghc-darcs-git-switchover~377
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=26732ab942ec85fc79df574542701aab13c6de3e;p=ghc-base.git

avoid a warning
---

diff --git a/cbits/iconv.c b/cbits/iconv.c
index c7e6ea1..4aedca8 100644
--- a/cbits/iconv.c
+++ b/cbits/iconv.c
@@ -13,7 +13,9 @@ size_t hs_iconv(iconv_t cd,
 		const char* * inbuf, size_t * inbytesleft,
 		char* * outbuf, size_t * outbytesleft)
 {
-	return iconv(cd, inbuf, inbytesleft, outbuf, outbytesleft);
+    // (void*) cast avoids a warning.  Some iconvs use (const
+    // char**inbuf), other use (char **inbuf).
+    return iconv(cd, (void*)inbuf, inbytesleft, outbuf, outbytesleft);
 }
 
 int hs_iconv_close(iconv_t cd) {