Iavor Diatchki wrote:
> server text
>    | Just xs <- parse text
>    ,   | "field1" `elem` xs   = ... do one thing ...
>        | "field2" `elem` xs   = ... do something else ...
> 
> server  _ = ... invalid request ...

What about:

server text
   | Just xs <- parse text = let
     x | "field1" `elem` xs   = error "... do one thing ..."
       | "field2" `elem` xs   = error "... do something else ..."
     in x
server  _ = error "... invalid request ..."

Regards,
Zun.
_______________________________________________
Haskell mailing list
Haskell@haskell.org
http://www.haskell.org/mailman/listinfo/haskell

Reply via email to