diff options
Diffstat (limited to 'src/Internal/LayoutDraw.hs')
| -rw-r--r-- | src/Internal/LayoutDraw.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Internal/LayoutDraw.hs b/src/Internal/LayoutDraw.hs index 4bb069a..7c69a08 100644 --- a/src/Internal/LayoutDraw.hs +++ b/src/Internal/LayoutDraw.hs @@ -10,6 +10,7 @@ import Control.Monad import Graphics.Rendering.Cairo import Graphics.Rendering.Cairo.Internal (Render(runRender)) import Graphics.Rendering.Cairo.Types (Cairo(Cairo)) +import Control.Concurrent (threadDelay) import System.FilePath import XMonad @@ -85,7 +86,7 @@ drawPng l = do surfaceWriteToPNG surface filepathPng - (!_) <- readProcessWithExitCode + out <- readProcessWithExitCode "/usr/bin/convert" [filepathPng, filepathXpm] "" |