[Xmonad] darcs patch: Main.hs: get rid off non-standard patter...
(and 4 more)
droundy at darcs.net
Wed Jun 20 18:44:11 EDT 2007
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
Department of Physics
Oregon State University
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Size: 189 bytes
Desc: Digital signature
Url : http://www.haskell.org/pipermail/xmonad/attachments/20070620/4b06703c/attachment-0001.bin
More information about the Xmonad