haskell-tools-builtin-refactorings-1.0.1.1: test/ExtensionOrganizerTest/RecursiveDoTest/MDo.hs

{-# LANGUAGE RecursiveDo #-}

module MDo where

justOnes = mdo { xs <- Just (1:xs)
               ; return (map negate xs) } {-* RecursiveDo *-}