Malcolm Wallace wrote:

> Mark P Jobes wrote: 
>
> | Something like the following can be used in Hugs 98:
> |
> |   f x = case x of
> |         (a,b) -> case a of
> |         (c,d) -> case b of
> |         (e,f) -> [c,d,e,f]
> 
> You can't be serious!  This is a great example of mis-using layout to
> baffle and bemuse.

I belive he is as it is very similar to

 {- code -} >>= \(a,b) ->
 {- code -} >>= \(c,d) ->
 {- code -} >>= \(e,f) ->  
 return [c,d,e,f]

Also how about.

    mcompare x y = 
             do i <- x ==~ y 
                if i then return EQ else do 
                i <- x <=~ y 
                if i then return LT else do
                return GT

with strictly increasing indentation iut would have to be something
like.

    mcompare x y = 
             do i <- x ==~ y 
                if i then return EQ else do 
                  i <- x <=~ y 
                  if i then return LT else do
                    return GT

which is a bit uglier.


-- 
Kevin Atkinson
[EMAIL PROTECTED]
http://metalab.unc.edu/kevina/


Reply via email to