liquidhaskell-0.4.0.0: tests/neg/truespec.hs

module TrueSpec (foo) where

import Language.Haskell.Liquid.Prelude (liquidAssert)

{-@ foo :: Int -> Int @-}
foo :: Int -> Int
foo x = liquidAssert (x > 0) $ x + 1