update Shrdlite.hs