setStringProp :: (MonadIO m) => Display -> StringProp -> [Char] -> m ()
setStringProp dpy prop string =
  withStringProp prop dpy $ \rootw a ->
    io $ changeProperty8 dpy rootw a a propModeReplace $ map castCharToCChar string
setStringProp :: (MonadIO m) => Display -> StringProp -> [Char] -> m ()
setStringProp dpy prop string =
  withStringProp prop dpy $ \rootw a ->
    io $ changeProperty8 dpy rootw a a propModeReplace $ map castCharToCChar string
setStringProp dpy prop string =
  withStringProp prop dpy $ \rootw a ->
    io $ changeProperty8 dpy rootw a a propModeReplace $ map castCharToCChar string