target-0.2.0.0: test/HOFs.hs

{-# LANGUAGE TemplateHaskell #-}
module HOFs where

import           Test.Target
import           Text.Show.Functions ()

{-@ foo :: (x:Int -> {v:Int | v > x}) -> {v:Int | v > 0} @-}
foo :: (Int -> Int) -> Int
foo f = f 0

foo_bad :: (Int -> Int) -> Int
foo_bad f = f (-1)

{-@ list_foo :: xs:{[Int] | len xs > 0} -> (xs:[Int] -> {v:[Int] | len v < len xs})
             -> {v:[Int] | len v < len xs}
  @-}
list_foo :: [Int] -> ([Int] -> [Int]) -> [Int]
list_foo xs f = f xs

list_foo_bad :: [Int] -> ([Int] -> [Int]) -> [Int]
list_foo_bad xs f = f []