BingWallpapers: Fetches and applies the image of the day from Bing as the wallpaper
Pattern matching instead of !!, inlining of single-use names where straightforward.

import Data.List.Split

main = do
  (_:picurl:_):(_:title:_):_ &lt;- map (wordsBy (=='&gt;')) . lines . L8.unpack
    &lt;$&gt; get "http://cdn.muzzammil.xyz/bing/bing.php?format=text&amp;cc=IN"
  putStrLn title
  L8.writeFile "/dev/shm/Bing-Wallpaper" =&lt;&lt; get picurl
  print =&lt;&lt; setWallpaper "/dev/shm/Bing-Wallpaper"