testsuite/tests/deSugar/should_run/mc05.hs


1
2
3
4
5
6
7
8
9
10
11

-- Test transform WITHOUT a by clause

{-# OPTIONS_GHC -XMonadComprehensions -XTransformListComp #-}

module Main where

main = putStrLn (show output)
  where
    output = [ x 
             | x <- [1..10]
             , then take 5 ]