arrowfail002.hs 107 Bytes
Newer Older
1
{-# LANGUAGE Arrows #-}
ross's avatar
ross committed
2
3
4
5
6
7

module ShouldFail where

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