fixing Main.hs - fixing: background show red color