adaptive-containers-0.2: tests/list.hs

module M where

import Prelude hiding (last, replicate, zip)
import Data.Adaptive.List
import Data.Adaptive.Tuple

f :: List (Pair Int Int)
f = zip (replicate 10 (8 :: Int))
        (replicate 10 (7 :: Int))