Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / ghci / scripts / T2766.script
1 -- Test #2766
2 :set -XTypeOperators
3 :m Control.Arrow
4 :t first :: Arrow to => b `to` c -> (b, d) `to` (c, d)
5 type a ~> b = a -> b
6 :t first :: b~>c -> (b, d)~>(c, d)