Readded Solver to Graphics.hs