cleanup DIG.hs