diff options
| author | Jamey Sharp <jamey@minilop.net> | 2006-01-10 23:33:02 +0000 |
|---|---|---|
| committer | Jamey Sharp <jamey@minilop.net> | 2006-01-10 23:33:02 +0000 |
| commit | 03e29b50f9a3c28f0f2abe2922e1a20eea359964 (patch) | |
| tree | 0d4e085f6cf9e666aab7d3c0e57cb8f7f5f59905 | |
| parent | c7362fdf589d6b91e4a4a2c76dd691697b60e6ad (diff) | |
Use fromBool, from Foreign.Util.
| -rw-r--r-- | xhsb/XProto.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xhsb/XProto.hs b/xhsb/XProto.hs index 982b285..5227246 100644 --- a/xhsb/XProto.hs +++ b/xhsb/XProto.hs @@ -16,4 +16,4 @@ data InternAtomReply = InternAtomReply { internAtomResponseType :: Word8, intern 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) |