diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-10-10 23:22:59 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-10-10 23:22:59 +0200 |
| commit | 33cd402ae968587d256e11004dac9ed52d1c3cc5 (patch) | |
| tree | 4b86bc3d0696d8cfe63a446c86ddde87841d91d2 /lib/Phi/X11/Atoms.hs | |
| parent | 456f9fb6e6d743702fcca79f4d23e1e5f40c530d (diff) | |
| download | phi-33cd402ae968587d256e11004dac9ed52d1c3cc5.tar phi-33cd402ae968587d256e11004dac9ed52d1c3cc5.zip | |
Use XCB backend
Diffstat (limited to 'lib/Phi/X11/Atoms.hs')
| -rw-r--r-- | lib/Phi/X11/Atoms.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Phi/X11/Atoms.hs b/lib/Phi/X11/Atoms.hs index 16945bf..6e69b37 100644 --- a/lib/Phi/X11/Atoms.hs +++ b/lib/Phi/X11/Atoms.hs @@ -10,7 +10,6 @@ import Data.List import Language.Haskell.TH import Graphics.XHB -import Graphics.XHB.Connection import Graphics.XHB.Gen.Xproto import Phi.X11.AtomList @@ -22,7 +21,7 @@ $(let atomsName = mkName "Atoms" in return [DataD [] atomsName [] [RecC atomsName fields] []] ) -initAtoms :: Connection -> IO Atoms +initAtoms :: ConnectionClass c => c -> IO Atoms initAtoms conn = $(do normalAtomNames <- mapM (\atom -> do |