1 2 3 4 5 6 7 8
{-# OPTIONS_GHC -fwarn-unused-binds #-} module ShouldFail where foo :: Int -> Int foo n = n + 1 where Nothing = Just n