Permalink
Browse files

Remove unused variable c_fn_name and withTString

  • Loading branch information...
1 parent 4f821bb commit 694f2699d62ad004b14efdf1e2c7dfe7f9ae46b4 Esa Ilari Vuokko committed Jul 31, 2006
Showing with 1 addition and 2 deletions.
  1. +1 −2 System/Win32/Types.hs
View
@@ -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

0 comments on commit 694f269

Please sign in to comment.