haskell-tools-refactor-1.0.1.1: examples/Expr/RecursiveDo.hs

{-# LANGUAGE RecursiveDo #-}
module Expr.RecursiveDo where

justOnes = mdo xs <- Just (1:xs)
               return (map negate xs)

justOnes' = do rec xs <- Just (1:xs)
                   return (map negate xs)
               return xs