Saizan on IRC offered the following solution: data Leak = Leak {x :: !Integer} Tested it and it works!
On Jan 27, 2009, at 1:07 PM, Shawn Garbett wrote:
I'm pulling my hair out fixing a memory leak in an OpenGL program. Don't know if this is related to OpenGL, but I've not gotten any takers from IRC. I know the exact line of code that's causing it.
<snip>
I've gotten it down to this:
import Data.IORef import Graphics.Rendering.OpenGL.GL.StateVar
-- LEAKS LIKE A SIEVE data Leak = Leak {x :: Integer} data State = State { stuff :: IORef Leak }
iter :: State -> IO () iter state = do l <- get $ stuff state (stuff state) $=! l{x=((x l) + 1 `rem` 12)} iter state
main :: IO () main = do l <- newIORef $ Leak{x=0} let s = State{stuff = l} iter s
Shawn Garbett
at < vanderbilt.edu> Vanderbilt Cancer Biology 220 Pierce Ave, PRB 715AA Nashville, TN 37232 Office: 615.936.1975 Cell: 615.397.8737
Shawn Garbett