testsuite/tests/rebindable/rebindable12.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE RebindableSyntax, MonadFailDesugaring #-}
{-# OPTIONS_GHC -Wmissing-monadfail-instances #-}

-- Test that rebindable clash warnings are displayed.

module Main where

import Prelude

catMaybes xs = do
    Just x <- xs
    return x

main = return ()