liquidhaskell-0.9.0.2.1: tests/neg/Pargs1.hs

{-@ LIQUID "--expect-any-error" @-}
{-@ LIQUID "--pruneunsorted" @-}
module Pargs1 () where

{-@ foo :: forall a <p :: x0:Int -> x1:a -> Bool>. 
             (i:Int  -> j : Int-> a<p (i)>) ->
               ii:Int -> jj:Int
              -> a <p (ii+jj)>
  @-}

foo ::  (Int -> Int -> a) -> Int -> Int ->  a
foo f i j = f i j