[xmonad] Issue 507 in xmonad: Pattern match failure in do expression at XMonad/Prompt.hs:601:3-14

[codesite-noreply at google.com]

Status: New
Owner: ----

New issue 507 by smp... at gmail.com: Pattern match failure in do expression  
at XMonad/Prompt.hs:601:3-14
http://code.google.com/p/xmonad/issues/detail?id=507

**What steps will reproduce the problem?**
I'm not sure that I can exactly describe how I get it. Generally speaking,  
it's
`shellPrompt' call and fast `t' pressing.

Than I get xmonad totally freezed and message in terminal where I call  
`xinit',
which run xmonad:

     Pattern match failure in do expression at XMonad/Prompt.hs:601:3-14

At 601 line of Prompt.hs there is unsafe pattern matching:

   Just bgcolor <- io $ initColor d (bgColor c)
   Just border  <- io $ initColor d (borderColor c)

**What is the expected output? What do you see instead?**
What I want is some `fromJust' there or hadling this situation with `case'.

It's xmonad-contrib-0.10-r1 build from gentoo-haskell overlay.  
(https://github.com/gentoo-haskell/gentoo-haskell/tree/master/x11-wm/xmonad-contrib)