Fix unused declarations

reinerp · Mar 29, 2012 · 589b548 · 589b548
1 parent 580b99a
commit 589b548
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/CoreFoundation/System/CoreFoundation/Base.chs b/CoreFoundation/System/CoreFoundation/Base.chs
@@ -3,6 +3,7 @@ module System.CoreFoundation.Base(
                 Object(..),
                 touchObject,
                 withDynObject,
+                getObjectDescription,
                 -- * TypeIDs
                 TypeID(),
                 typeIDDescription,

diff --git a/CoreFoundation/System/CoreFoundation/RunLoop.chs b/CoreFoundation/System/CoreFoundation/RunLoop.chs
@@ -30,9 +30,6 @@ declareCFType "RunLoop"
 {#fun CFRunLoopGetMain as getMainRunLoop
     { } -> `RunLoop' getAndRetain* #}
 
-foreign import ccall "CFRunLoopGetCurrent" cfRunLoopGetCurrent :: IO (Ptr ())
-foreign import ccall "CFRunLoopGetMain" cfRunLoopGetMain :: IO (Ptr ())
-
 {#fun queueFunctionForRunLoop
     { withObject* `RunLoop'
     , id `Ptr ()'