summaryrefslogtreecommitdiff
path: root/testsuite/tests/arrows/should_fail/arrowfail002.hs
blob: 96cc930565dcd1895bcd702e6a4e9e2312a7b66e (plain)
1
2
3
4
5
6
7
{-# LANGUAGE Arrows #-}

module ShouldFail where

g :: Int -> Int
g = proc x -> f x -< x+1
  where f = (*)