[Gtk2hs-commit] (main branch): Remove withGObject and Base.chs. (Don't need withGObject anymore)

[Andy S. <And...@co...>]

diffing dir...
Mon Aug 30 03:03:08 EDT 2010  Andy Stewart <laz...@gm...>
  * Remove withGObject and Base.chs. (Don't need withGObject anymore)
  Ignore-this: 9a605c83179844f0db5201cf84f31594
    {
    hunk ./gio/System/GIO/Base.chs 1
    -{-# LANGUAGE CPP #-}
    ---  GIMP Toolkit (GTK) Binding for Haskell: binding to gio -*-haskell-*-
    ---
    ---  Author : Peter Gavin
    ---  Created: 13-Oct-2008
    ---
    ---  Copyright (c) 2008 Peter Gavin
    ---
    ---  This library is free software: you can redistribute it and/or
    ---  modify it under the terms of the GNU Lesser General Public License
    ---  as published by the Free Software Foundation, either version 3 of
    ---  the License, or (at your option) any later version.
    ---  [_$_]
    ---  This library is distributed in the hope that it will be useful,
    ---  but WITHOUT ANY WARRANTY; without even the implied warranty of
    ---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    ---  Lesser General Public License for more details.
    ---  [_$_]
    ---  You should have received a copy of the GNU Lesser General Public
    ---  License along with this program.  If not, see
    ---  <http://www.gnu.org/licenses/>.
    ---  [_$_]
    ---  GIO, the C library which this Haskell library depends on, is
    ---  available under LGPL Version 2. The documentation included with
    ---  this library is based on the original GIO documentation.
    ---  [_$_]
    --- | Maintainer  : gtk...@li...
    ---   Stability   : alpha
    ---   Portability : portable (depends on GHC)
    -module System.GIO.Base where
    -
    -import Control.Monad
    -import System.Glib.FFI
    -import System.Glib.Flags
    -import System.Glib.GObject
    -{#import System.GIO.Types#}
    -
    -withGObject :: GObjectClass objectT
    -            => objectT
    -            -> (Ptr objectT -> IO a)
    -            -> IO a
    -withGObject object action =
    -    let objectFPtr = unGObject $ toGObject object
    -    in withForeignPtr (castForeignPtr objectFPtr) action
    -
    rmfile ./gio/System/GIO/Base.chs
    }