diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-02-06 16:38:52 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-02-06 16:38:52 +0000 |
| commit | 43636e1b8cf4a6d4752a22b098a9edd0759a7600 (patch) | |
| tree | b483be0b58a3d42720d507e7aef7726a0a538373 /testsuite/tests/mdo/should_compile/T10004.hs | |
| parent | 0f75a3f0a15ac26e52dc3477fd6e5bc3cd5c6eca (diff) | |
| download | haskell-43636e1b8cf4a6d4752a22b098a9edd0759a7600.tar.gz | |
Fix Trac #10004: head [] exception when using recursive mdo
Diffstat (limited to 'testsuite/tests/mdo/should_compile/T10004.hs')
| -rw-r--r-- | testsuite/tests/mdo/should_compile/T10004.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/mdo/should_compile/T10004.hs b/testsuite/tests/mdo/should_compile/T10004.hs new file mode 100644 index 0000000000..8e6200e841 --- /dev/null +++ b/testsuite/tests/mdo/should_compile/T10004.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE RecursiveDo #-} +module T10004 where + +bar :: IO () +bar = do rec {} + return () |