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

{-# LANGUAGE RecursiveDo #-}

module RecStmt where

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