Rename property to stringProperty

darcs-hash:20080325201814-a5988-0ed64be080f177d367a4739c54a718219f24df04

1 files changed, 4 insertions, 4 deletions

diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index b4996b2..76d9568 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -68,11 +68,11 @@ className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass       $ io
 
 -- | A query that can return an arbitrary X property of type String,
 --   identified by name.
-property :: String -> Query String
-property p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ getProperty d w p)
+stringProperty :: String -> Query String
+stringProperty p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ getStringProperty d w p)
 
-getProperty :: Display -> Window -> String -> X (Maybe String)
-getProperty d w p = do
+getStringProperty :: Display -> Window -> String -> X (Maybe String)
+getStringProperty d w p = do
   a  <- getAtom p
   md <- io $ getWindowProperty8 d a w
   return $ fmap (map (toEnum . fromIntegral)) md