gtk2hs-cast-gnomevfs 0.10.1.1 → 0.10.1.2

raw patch · 4 files changed

+18/−48 lines, 4 filesdep +gtk2hs-cast-thsetup-changed

Dependencies added: gtk2hs-cast-th

Files

• Setup.hs +0/−6
• System/Gnome/VFS/Cast.hs +3/−3
• System/Gnome/VFS/Cast/TH.hs +0/−34
• gtk2hs-cast-gnomevfs.cabal +15/−5

@@ -1,9 +1,3 @@--- gtk2hs-cast-gnomevfs -- A type class for cast functions of Gtk2hs: gnomevfs--- package--- Copyright (c) 2009 Marco Túlio Gontijo e Silva <marcot@holoscopio.com>--- CC0 Waiver 1.0 Universal [Beta 3]--- See LICENSE- import Distribution.Simple  main :: IO ()

@@ -12,7 +12,7 @@ -- gtk2hs-cast-glib import System.Glib.Cast --- gtk2hs-cast-gnomevfs-import System.Gnome.VFS.Cast.TH+-- gtk2hs-cast-th+import System.Glib.Cast.TH -$instance_+$(instance_ "System.Gnome.VFS")

@@ -1,34 +0,0 @@--- gtk2hs-cast-gnomevfs -- A type class for cast functions of Gtk2hs: gnomevfs--- package--- Copyright (c) 2009 Marco Túlio Gontijo e Silva <marcot@holoscopio.com>--- CC0 Waiver 1.0 Universal [Beta 3]--- See LICENSE--module System.Gnome.VFS.Cast.TH (instance_) where---- base-import Data.Maybe---- hint-import Language.Haskell.Interpreter---- template-haskell-import Language.Haskell.TH.Syntax--instance_ :: Q [Dec]-instance_-  = do-    (Right (elements :: [ModuleElem]))-      <- qRunIO $ runInterpreter $ getModuleExports "System.Gnome.VFS"-    return $ map makeInstance_ $ mapMaybe isCastTo elements--isCastTo :: ModuleElem -> Maybe String-isCastTo (Fun ('c' : 'a' : 's' : 't' : 'T' : 'o' : rest)) = Just rest-isCastTo _others = Nothing--makeInstance_ :: String -> Dec-makeInstance_ type_-  = InstanceD []-  (AppT (ConT $ mkName "Cast") $ ConT $ mkName type_)-  [ FunD (mkName "cast")-    [ Clause [] (NormalB $ VarE $ mkName $ "castTo" ++ type_) []]]

@@ -1,5 +1,5 @@ name: gtk2hs-cast-gnomevfs-version: 0.10.1.1+version: 0.10.1.2 cabal-version: >= 1.6 build-type: Simple license: OtherLicense@@ -14,14 +14,24 @@  This package contains a type class called Cast with a function cast, that is a  wrapper for all the castTo* functions of gtk2hs.  It makes it easier to write  other functions that require a castTo* as a parameter, like xmlGetWidget from- glade.+ glade.  The main utility of these packages is to use xmlGetWidgetCast, a+ version of xmlGetWidget defined in gtk2hs-cast-glade, which has the type:+ xmlGetWidgetCast :: (Cast widget, WidgetClass widget) => GladeXML -> String ->+ IO widget.  .- This is the gnome package of gtk2hs-cast.+ This is the gnomevfs package of gtk2hs-cast, which contains the instances of+ Cast for the types in the gnomevfs package from gtk2hs. category: GUI tested-with: GHC == 6.10.1 library-  exposed-modules: System.Gnome.VFS.Cast, System.Gnome.VFS.Cast.TH-  build-depends: base, hint, gnomevfs, gtk2hs-cast-glib, template-haskell+  exposed-modules: System.Gnome.VFS.Cast+  build-depends:+    base+    , hint+    , gnomevfs+    , gtk2hs-cast-glib+    , gtk2hs-cast-th+    , template-haskell   extensions: ScopedTypeVariables, TemplateHaskell source-repository head   type: darcs