aboutsummaryrefslogtreecommitdiff
path: root/src/Internal/LayoutDraw.hs
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2021-11-03 01:13:07 -0600
committerJosh Rahm <joshuarahm@gmail.com>2022-10-09 12:19:45 -0600
commit8f9941f5acbedc08b42dda93771be6513d09e0e3 (patch)
tree78e4d070ac743187dc801c9e62a43f8a8b817047 /src/Internal/LayoutDraw.hs
parenta517023d22958022cc9fb0a303b26df660da9aa8 (diff)
downloadrde-8f9941f5acbedc08b42dda93771be6513d09e0e3.tar.gz
rde-8f9941f5acbedc08b42dda93771be6513d09e0e3.tar.bz2
rde-8f9941f5acbedc08b42dda93771be6513d09e0e3.zip
Added MosaicAlt Layout. Changed weather icon to use moon icon for 'clear'
Diffstat (limited to 'src/Internal/LayoutDraw.hs')
-rw-r--r--src/Internal/LayoutDraw.hs3
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]
""