Don't strictify the Display component, this triggers a bug in GHC 6.6

This commit is contained in:
Spencer Janssen 2008-04-16 18:57:33 +00:00
parent adbee1ce2c
commit b1d4d97c1a

View File

@ -73,7 +73,7 @@ import System.Posix.Files
type XP = StateT XPState IO type XP = StateT XPState IO
data XPState = data XPState =
XPS { dpy :: !Display XPS { dpy :: Display
, rootw :: !Window , rootw :: !Window
, win :: !Window , win :: !Window
, screen :: !Rectangle , screen :: !Rectangle