testsuite/tests/parser/should_compile/mc15.hs


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


{-# LANGUAGE MonadComprehensions, ParallelListComp #-}

module Foo where

import Control.Monad.Zip

foo :: (MonadZip m, Monad m) => m ()
foo = [ ()
      | () <- foo
      | () <- foo
      ]