Remove unused variable c_fn_name and withTString

haskell · Jul 31, 2006 · 694f269 · 694f269
1 parent 4f821bb
commit 694f269
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/System/Win32/Types.hs b/System/Win32/Types.hs
@@ -194,8 +194,7 @@ errorWin fn_name = do
   failWith fn_name err_code
 
 failWith :: String -> ErrCode -> IO a
-failWith fn_name err_code =
-  withTString fn_name $ \ c_fn_name -> do
+failWith fn_name err_code = do
   c_msg <- getErrorMessage err_code
   msg <- peekTString c_msg
   localFree c_msg