windowProperty8 :: String -> Window -> M (Maybe [CChar])
windowProperty8 s w = do
    (C {display}) <- ask
    a <- getAtom s
    liftIO $ getWindowProperty8 display a w
windowProperty8 :: String -> Window -> M (Maybe [CChar])
windowProperty8 s w = do
    (C {display}) <- ask
    a <- getAtom s
    liftIO $ getWindowProperty8 display a w
windowProperty8 s w = do
    (C {display}) <- ask
    a <- getAtom s
    liftIO $ getWindowProperty8 display a w