Update of /cvsroot/hoc/hoc/Bindings/AdditionalCode/Foundation
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv2631/Bindings/AdditionalCode/Foundation
Modified Files:
NSRange.hs
Log Message:
Correctly export anonymous enum constants in the interface generator.
(and adjust NSRange.hs accordingly)
Index: NSRange.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/Bindings/AdditionalCode/Foundation/NSRange.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- NSRange.hs 5 Oct 2005 03:14:39 -0000 1.2
+++ NSRange.hs 5 Feb 2007 16:11:31 -0000 1.3
@@ -7,7 +7,6 @@
--X NSRangePointer
--X nsMaxRange
--X nsLocationInRange
---X nsNotFound
import HOC.FFICallInterface
import HOC.Arguments
@@ -22,7 +21,6 @@
nsMaxRange (NSRange loc len) = loc + len
nsLocationInRange x (NSRange loc len) = x >= loc && x < loc+len
-nsNotFound = 0x7fffffff :: CUInt
instance Storable NSRange where
alignment _ = alignment (undefined :: CUInt)
|
