liquidhaskell-0.8.10.1: tests/neg/T1288.hs

module T1288 where

{-@ measure foo @-}
foo :: () -> Int
foo _ = 10

{-@ blub :: {v:Int | v = 100} @-}
blub = foo ()