liquidhaskell-0.8.0.2: tests/todo/Measure.hs

module Measure where



data Foo a = F a 

{-@ measure foo :: a -> Int @-}

{-@ measure bar :: (Foo a) -> Bool
    bar(F xs) = (foo xs)         @-}