Haskell/SDL/Lens