[xmonad] ManageHook and doF

[Владимир Байраковский]

Ooops! I loose mailing list in recipients. Just forward.

2011/1/26 Jan-David Quesel <Quesel at informatik.uni-oldenburg.de>:
> Maybe split the function and rewrite such that you get
> doF (\y -> createMissing "web" >> (W.shift "web" y))
>
> Regards,
> Jan
>
> On Wed, Jan 26, 2011 at 10:03:07PM +1000, Владимир Байраковский wrote:
>> Ok, it works. The next one error is:
>>
>> xmonad.hs:79:3:
>>     Couldn't match expected type `X a'
>>            against inferred type `W.StackSet String l a1 s sd
>>                                   -> W.StackSet String l a1 s sd'
>>     In the expression: W.shift x
>>     In the expression:
>>         do { when (x `notElem` (map show $ map W.tag $ W.workspaces w))
>>            $ addHiddenWorkspace x;
>>            W.shift x }
>>     In the second argument of `($)', namely
>>         `\ w -> do { when
>>                        (x `notElem` (map show $ map W.tag $ W.workspaces w))
>>                    $ addHiddenWorkspace x;
>>                    W.shift x }'
>>
>> 2011/1/26 Jan-David Quesel <quesel at gmail.com>:
>> > There is some w missing...
>> >
>> > On Wed, Jan 26, 2011 at 09:08:16PM +1000, Владимир Байраковский wrote:
>> >> So, some imports needed:
>> >>
>> >> import Control.Monad (when)
>> >> import Data.List
>> >>
>> >> But this error occured:
>> >>
>> >> xmonad.hs:78:45:
>> >>     Couldn't match expected type `[W.Workspace i l a]'
>> >>            against inferred type `W.StackSet i1 l1 a1 s sd
>> >>                                   -> [W.Workspace i1 l1 a1]'
>> >>     In the second argument of `($)', namely `W.workspaces'
>> >>     In the second argument of `($)', namely `map W.tag $ W.workspaces'
>> >>     In the second argument of `notElem', namely
>> >>         `(map show $ map W.tag $ W.workspaces)'
>> >>
>> >> where line 78 is:
>> >> when(x `notElem` (map show $ map W.tag $ W.workspaces)) $ addHiddenWorkspace x
>> >
>> > It should read:
>> >
>> > when(x `notElem` (map show $ map W.tag $ W.workspaces w)) $ addHiddenWorkspace x
>> >
>> > Regards,
>> > Jan
>> >
>> >
>> > --
>> > Jan-David Quesel
>> > Carl von Ossietzky Universität Oldenburg
>> > Department of Computing Science
>> > Correct System Design
>> > D-26111 Oldenburg, Germany
>> >
>> > Phone: +49 (0)441 798-2376
>> > Fax: +49 (0)441 798-2965
>> >
>> > -----BEGIN PGP SIGNATURE-----
>> > Version: GnuPG v1.4.10 (GNU/Linux)
>> >
>> > iEYEARECAAYFAk1ABmgACgkQzWWUYNynIPEu8ACdHEva1W/tf28zJSoLGQ4i9So5
>> > nrcAoLpBMrjOa8EbbSXXBx+X4SqKkWWl
>> > =2b4n
>> > -----END PGP SIGNATURE-----
>> >
>> >
>>
>
> --
> Jan-David Quesel
> Carl von Ossietzky Universität Oldenburg
> Department of Computing Science
> Correct System Design
> D-26111 Oldenburg, Germany
>
> Phone: +49 (0)441 798-2376
> Fax: +49 (0)441 798-2965
>
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.10 (GNU/Linux)
>
> iEYEARECAAYFAk1AD3YACgkQzWWUYNynIPGvFgCeLiPPLe9ujZs6dcBtDqjuPMgn
> aaMAn2M+DP5SzQAPtMvR+FG7zsqZCfXl
> =s0QI
> -----END PGP SIGNATURE-----
>
>