Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / deSugar / should_compile / ds063.hs
1 {-# OPTIONS_GHC -Wall #-}
2 {-# LANGUAGE ViewPatterns #-}
3
4 module ShouldCompile where
5
6 f :: Int -> Int
7 f ((+1) -> 1) = 5
8 f _ = 3
9
10 -- Should not give an overlapping-patterns or non-exhaustive-patterns error
11 -- See #2395