Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Remove unused variable c_fn_name and withTString

  • Loading branch information...
commit 694f2699d62ad004b14efdf1e2c7dfe7f9ae46b4 1 parent 4f821bb
Esa Ilari Vuokko authored
Showing with 1 addition and 2 deletions.
  1. +1 −2  System/Win32/Types.hs
View
3  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
Please sign in to comment.
Something went wrong with that request. Please try again.