-- 021202
-- H98-compliant

module LiftArray(module Liftable, module Xarray) where

import Xarray

import Liftable

-- Make Array liftable

instance (Ix a, Pord a) => Liftable (Array a) where
  lift0 x        = infarray (\i -> x)
  lift1          = fmap
  lift2  f a1 a2 = mkarray ((bounds a1) `meet` (bounds a2))
                           (\i -> f (a1!i) (a2!i))