doScalePixbuf size orientation mpixbuf = do
  when (isNothing mpixbuf) $
         logM "ManThisIsHard" WARNING "Got nothing pixbuf"
  traverse doIt mpixbuf
  where doIt pixbuf = do
          scaledPb <- scalePixbufToSize size orientation pixbuf
          width <- Gdk.pixbufGetWidth scaledPb
          height <- Gdk.pixbufGetHeight scaledPb
          logM "ManThisIsHard" DEBUG $
               printf "Setting pixbuf for image: pw: %s ph: %s size: %s"
                      (show width) (show height) (show size)
          return scaledPb