boxContains' :: (Additive v, Foldable v, Ord n) => BoundingBox v n -> Point v n -> Bool
boxContains' b p = maybe False test $ getCorners b
  where
    test (l, h) = F.and (liftI2 (<) l p)
               && F.and (liftI2 (<) p h)

-- | Test whether the first bounding box is contained inside
--   the second.
boxContains' :: (Additive v, Foldable v, Ord n) => BoundingBox v n -> Point v n -> Bool
boxContains' b p = maybe False test $ getCorners b
  where
    test (l, h) = F.and (liftI2 (<) l p)
               && F.and (liftI2 (<) p h)

-- | Test whether the first bounding box is contained inside
--   the second.
boxContains' b p = maybe False test $ getCorners b
  where
    test (l, h) = F.and (liftI2 (<) l p)
               && F.and (liftI2 (<) p h)

-- | Test whether the first bounding box is contained inside
--   the second.