blob: 13e1b2dd3d79b079e4ff9e5da822d8dbe8f85191 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# LANGUAGE RebindableSyntax, MonadFailDesugaring #-}
{-# OPTIONS_GHC -Wno-missing-monadfail-instances #-}
-- Test that rebindable clash warnings are not displayed. This program
-- should not generate anything on stderr at compile time.
module Main where
import Prelude
catMaybes xs = do
Just x <- xs
return x
main = return ()
|
