summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_fail/RnImplicitBindInMdoNotation.hs
blob: c04ce4d623b84e51401661b44dd82bcda6e840da (plain)
1
2
3
4
5
6
7
8
{-# LANGUAGE RecursiveDo    #-}
{-# LANGUAGE ImplicitParams #-}

module ShouldFail where

x = mdo
  let ?x = 5
  ()