fixed Array.hs....