[Xcb-commit] xhsb XProto.hs,1.2,1.3

[Jamey Sharp]

Update of /cvs/xcb/xhsb
In directory gabe:/tmp/cvs-serv24300

Modified Files:
	XProto.hs 
Log Message:
Use fromBool, from Foreign.Util.

Index: XProto.hs
===================================================================
RCS file: /cvs/xcb/xhsb/XProto.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- XProto.hs	10 Jan 2006 11:55:42 -0000	1.2
+++ XProto.hs	10 Jan 2006 23:33:02 -0000	1.3
@@ -16,4 +16,4 @@
 
 internAtom :: Ptr XCBConnection -> Bool -> String -> IO InternAtomReply
 internAtom c onlyIfExists name =
-    requestWithReply c $ withCStringLen name (\(name, name_len)-> _internAtom c (if onlyIfExists then 1 else 0) (toEnum name_len) name)
+    requestWithReply c $ withCStringLen name (\(name, name_len)-> _internAtom c (fromBool onlyIfExists) (toEnum name_len) name)