Update FragmentProgram.hs