Fix build on c2hs 0.16.3

jmillikin · jmillikin · commit 370b2428c237 · 2011-08-22T22:15:50.000-07:00
diff --git a/CPython/Protocols/Object.chs b/CPython/Protocols/Object.chs
@@ -136,7 +136,7 @@ cast obj = do
 	`Object self' =>
 	{ withObject* `self'
 	, withObject* `U.Unicode'
-	} -> `Bool' #}
+	} -> `Bool' checkBoolReturn* #}
 
 -- | Retrieve an attribute with the given name from object /self/. Returns
 -- the attribute value on success, and throws an exception on failure. This
