purescript-0.13.0: tests/purs/failing/NonExhaustivePatGuard.purs

-- @shouldFailWith NoInstanceFound
module Main where

f :: Int -> Int
f x | 1 <- x = x