
22 Sep
2006
22 Sep
'06
3:15 p.m.
Hello Brian, Friday, September 22, 2006, 9:03:01 PM, you wrote:
withBSTR8 :: [Char] -> (BSTR8 -> IO a) -> IO a withBSTR8 s f = bracket (createBSTR8 s) (\bstr -> free (bstr `plusPtr` (-4))) (\bstr -> f bstr)
this may be shortened to
withBSTR8 s = bracket (createBSTR8 s) (\bstr -> free (bstr `plusPtr` (-4)))
my lib contains a tons of such brackets -- Best regards, Bulat mailto:Bulat.Ziganshin@gmail.com