testsuite/tests/deSugar/should_compile/ds062.hs


1
2
3
4
5
6
7
8
9
10
11

{-# OPTIONS_GHC -Wall #-}

module ShouldCompile where

f :: String -> Int
f x | null x    = 1
    | otherwise = 2

-- Should not give a non-exhaustive-patterns error
-- See Trac #1759