On Wed, Jun 20, 2007 at 11:41:25PM +0200, Joachim Fasting wrote:
This could be prettier with
let winset = maybe (new [0..fromIntegral workspaces-1] (fromIntegral $ length xinesc)) id $ do ("--resume" : s : _) <- args [(x, "")] <- reads s return x
which I think is closer to what the pattern guards desugar to.
Your solution is way better than mine. Please pretend like I never sent this patch.
Or you could resubmit with my solution... I'm at work, and while I can't resist suggesting prettier code, I also have set a hard rule about not procrastinating by working on xmonad during the day.
I would resend using your nice suggestion, but it won't type-check for me.
Ah, I left out the returns:
let winset = maybe (new [0..fromIntegral workspaces-1] (fromIntegral $ length xinesc)) id $ do ("--resume" : s : _) <- return $ args [(x, "")] <- return $ reads s return x -- David Roundy Department of Physics Oregon State University