[Gtk2hs-commit] (main branch): gio: don't use Control.Monad.>=> (it's not in ghc-6.6 or earlier)

[Peter g. <pg...@co...>]

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