liquidhaskell-0.9.0.2.1: tests/pos/ModTest.hs

module ModTest () where

import Language.Haskell.Liquid.Prelude (isEven)

{-@ takeEvens :: [Int] -> [{v: Int | v mod 2 = 0}] @-}
takeEvens :: [Int] -> [Int]
takeEvens []     = []
takeEvens (x:xs) = if isEven x
                     then x : takeEvens xs 
                     else takeEvens xs