GI.Internal.TypeLib: eliminate unused value warning

wjt · Jun 13, 2011 · 1da0039 · 1da0039
1 parent 5da48f2
commit 1da0039
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GI/Internal/Typelib.chs b/GI/Internal/Typelib.chs
@@ -52,7 +52,7 @@ getLoadedNamespaces :: IO [String]
 getLoadedNamespaces = do
     nsPtrs <- {# call unsafe get_loaded_namespaces #} nullRepository
     nss <- peekCStrings nsPtrs
-    mapCStrings free nsPtrs
+    _ <- mapCStrings free nsPtrs
     free nsPtrs
     return nss