diff --git a/Network/Curlhs/Base.hsc b/Network/Curlhs/Base.hsc
--- a/Network/Curlhs/Base.hsc
+++ b/Network/Curlhs/Base.hsc
@@ -37,16 +37,11 @@
 
 module Network.Curlhs.Base where
 
-import Foreign.C.Types  (CChar, CInt, CUInt, CLong, CLLong, CDouble)
-import Foreign.C.Types  (CSize, CFile, CTime)
-import Foreign.Ptr      (Ptr, FunPtr, castPtr)
+import Foreign.C.Types
 import Foreign.Storable (Storable (..))
+import Foreign.Ptr      (Ptr, FunPtr, castPtr)
 
 import Control.Applicative ((<$>), (<*>))
-
-#if defined(WIN32) && !defined(__LWIP_OPT_H__)
-import Foreign.C.Types  (CUIntPtr)
-#endif
 
 
 -------------------------------------------------------------------------------
diff --git a/Network/Curlhs/Errors.hsc b/Network/Curlhs/Errors.hsc
--- a/Network/Curlhs/Errors.hsc
+++ b/Network/Curlhs/Errors.hsc
@@ -40,7 +40,7 @@
 
 
 -------------------------------------------------------------------------------
-#define hsc_curlcode(code) printf(#code " -> c" #code);
+#{let curlcode code = #code " -> c" #code}
 
 fromCURLcode :: CURLcode -> CCURLcode
 fromCURLcode x = case x of
@@ -127,7 +127,7 @@
 
 
 -------------------------------------------------------------------------------
-#define hsc_ccurlcode(code) printf("| x == c" #code " = " #code);
+#{let ccurlcode code = "| x == c" #code " = " #code}
 
 fromCCURLcode :: CCURLcode -> CURLcode
 fromCCURLcode x
diff --git a/Network/Curlhs/Setopt.hsc b/Network/Curlhs/Setopt.hsc
--- a/Network/Curlhs/Setopt.hsc
+++ b/Network/Curlhs/Setopt.hsc
@@ -60,7 +60,7 @@
 
 
 -------------------------------------------------------------------------------
-#define hsc_setopt(opt, fun) printf(#opt " x -> " #fun " c" #opt " x");
+#{let setopt opt, fun = #opt " x -> " #fun " c" #opt " x"}
 
 -------------------------------------------------------------------------------
 -- | Set options for a curl easy handle
@@ -334,7 +334,7 @@
 
 
 -------------------------------------------------------------------------------
-#define hsc_option(opt) printf(#opt " -> c" #opt);
+#{let option opt = #opt " -> c" #opt}
 
 class CURLenum a where
   fromCURLenum :: a -> CLong
diff --git a/curlhs.cabal b/curlhs.cabal
--- a/curlhs.cabal
+++ b/curlhs.cabal
@@ -1,5 +1,5 @@
 name:           curlhs
-version:        0.0.1
+version:        0.0.2
 synopsis:       bindings to libcurl, the multiprotocol file transfer library
 author:         Krzysztof Kardzis <kkardzis@gmail.com>
 maintainer:     Krzysztof Kardzis <kkardzis@gmail.com>