Mon Oct 20 09:20:48 EDT 2008 Peter Gavin <pg...@gm...>
* gio: don't use Control.Monad.>=> (it's not in ghc-6.6 or earlier)
hunk ./gio/System/GIO/File.chs 142
- unsafePerformIO $ withUTFString path $ {# call file_new_for_path #} >=> takeGObject
+ unsafePerformIO $ withUTFString path $ \cPath -> {# call file_new_for_path #} cPath >>= takeGObject
hunk ./gio/System/GIO/File.chs 146
- unsafePerformIO $ withUTFString uri $ {# call file_new_for_uri #} >=> takeGObject
+ unsafePerformIO $ withUTFString uri $ \cURI -> {# call file_new_for_uri #} cURI >>= takeGObject
hunk ./gio/System/GIO/File.chs 150
- unsafePerformIO $ withUTFString arg $ {# call file_new_for_commandline_arg #} >=> takeGObject
+ unsafePerformIO $ withUTFString arg $ \cArg -> {# call file_new_for_commandline_arg #} cArg >>= takeGObject
hunk ./gio/System/GIO/File.chs 154
- unsafePerformIO $ withUTFString parseName $ {# call file_parse_name #} >=> takeGObject
+ unsafePerformIO $ withUTFString parseName $ \cParseName -> {# call file_parse_name #} cParseName >>= takeGObject
hunk ./gio/System/GIO/File.chs 165
-fileBasename =
- unsafePerformIO . ({# call file_get_basename #} . toFile >=> readUTFString)
+fileBasename file =
+ unsafePerformIO $ {# call file_get_basename #} (toFile file) >>= readUTFString
hunk ./gio/System/GIO/File.chs 169
-filePath =
- unsafePerformIO . ({# call file_get_path #} . toFile >=> readUTFString)
+filePath file =
+ unsafePerformIO $ {# call file_get_path #} (toFile file) >>= readUTFString
hunk ./gio/System/GIO/File.chs 173
-fileURI =
- unsafePerformIO . ({# call file_get_uri #} . toFile >=> readUTFString)
+fileURI file =
+ unsafePerformIO $ {# call file_get_uri #} (toFile file) >>= readUTFString
hunk ./gio/System/GIO/File.chs 177
-fileParseName =
- unsafePerformIO . ({# call file_get_parse_name #} . toFile >=> readUTFString)
+fileParseName file =
+ unsafePerformIO $ {# call file_get_parse_name #} (toFile file) >>= readUTFString
hunk ./gio/System/GIO/File.chs 181
-fileParent =
- unsafePerformIO . ({# call file_get_parent #} . toFile >=> maybePeek takeGObject)
+fileParent file =
+ unsafePerformIO $ {# call file_get_parent #} (toFile file) >>= maybePeek takeGObject
hunk ./gio/System/GIO/File.chs 187
- withUTFString name $
- {# call file_get_child #} (toFile file) >=> takeGObject
+ withUTFString name $ \cName ->
+ {# call file_get_child #} (toFile file) cName >>= takeGObject
hunk ./gio/System/GIO/File.chs 227
-fileURIScheme =
- unsafePerformIO . ({# call file_get_uri_scheme #} . toFile >=> readUTFString)
+fileURIScheme file =
+ unsafePerformIO $ {# call file_get_uri_scheme #} (toFile file) >>= readUTFString
|
