update Scan.hs