glib 0.12.5.3 → 0.12.5.4

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• System/Glib/GString.chs +4/−2
• glib.cabal +1/−1

@@ -49,7 +49,8 @@   | gstring == nullPtr = return Nothing   | otherwise	       = do     gstr <- {#get GString->str#} gstring-    maybePeek peekCString gstr+    len <- {#get GString->len#} gstring+    fmap Just $ peekCStringLen (gstr, fromIntegral len)  -- Turn a GList into a list of pointers (freeing the GList in the process). --@@ -58,7 +59,8 @@   | gstring == nullPtr = return Nothing   | otherwise	       = do     gstr <- {#get GString->str#} gstring-    str  <- maybePeek peekCString gstr+    len <- {#get GString->len#} gstring+    str <- fmap Just $ peekCStringLen (gstr, fromIntegral len)     _ <- {#call unsafe string_free#} gstring $ fromBool True     return str 

@@ -1,5 +1,5 @@ Name:           glib-Version:        0.12.5.3+Version:        0.12.5.4 License:        LGPL-2.1 License-file:   COPYING Copyright:      (c) 2001-2010 The Gtk2Hs Team