From 3597a5f93e3858f0df121b671ea77e10f01c6ada Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Tue, 10 Mar 2015 22:42:46 +0100
Subject: add instance Default WallpaperConf

Ignore-this: 18e74f249b35726acd4b923ecce3085

darcs-hash:20150310214246-1499c-79c35435301e48bf076f95e31ee04d8ac9580aef.gz
---
 XMonad/Hooks/WallpaperSetter.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/XMonad/Hooks/WallpaperSetter.hs b/XMonad/Hooks/WallpaperSetter.hs
index 5f0f608..00a3b1c 100644
--- a/XMonad/Hooks/WallpaperSetter.hs
+++ b/XMonad/Hooks/WallpaperSetter.hs
@@ -96,6 +96,9 @@ data WallpaperConf = WallpaperConf {
 defWallpaperConf :: WallpaperConf
 defWallpaperConf = WallpaperConf "" $ WallpaperList []
 
+instance Default WallpaperConf where
+    def = defWallpaperConf
+
 -- |returns the default association list (maps name to name.jpg, non-alphanumeric characters are omitted)
 defWPNames :: [WorkspaceId] -> WallpaperList
 defWPNames xs = WallpaperList $ map (\x -> (x,WallpaperFix (filter isAlphaNum x++".jpg"))) xs
-- 
cgit v1.2.3