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>2021-11-03 01:13:07 -0600
commit8f6e5103dc8dc3068637b696762e96c2729e939e (patch)
tree78e4d070ac743187dc801c9e62a43f8a8b817047 /src/Internal/LayoutDraw.hs
parent6f76e166bb2572ade759291f308460f78e8af12f (diff)
downloadrde-8f6e5103dc8dc3068637b696762e96c2729e939e.tar.gz
rde-8f6e5103dc8dc3068637b696762e96c2729e939e.tar.bz2
rde-8f6e5103dc8dc3068637b696762e96c2729e939e.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]
""