Finding the number of X11 screens from Haskell

Question

I\'d like to know how many X screens the current machine has, to make my .xmonad a little more general; I have a netbook as well as a desktop with two monitors, and I use se

Answer 1

For the curious, I ended up using

 screenCount :: X Int  
 screenCount = withDisplay (io.fmap length.getScreenInfo)

I also found out that the XMonad module has a function

 screenCount :: Display -> Foreign.C.Types.CInt