Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / arrows / should_fail / arrowfail004.hs
1 {-# LANGUAGE Arrows, ExistentialQuantification #-}
2
3 -- #1662
4
5 module ShouldFail where
6
7 import Control.Arrow
8
9 data T = forall a. T a
10
11 panic :: (Arrow arrow) => arrow T T
12 panic = proc (T x) -> do returnA -< T x