Update Available.hs