diff options
Diffstat (limited to 'custom')
-rw-r--r-- | custom/notify-user.nix | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/custom/notify-user.nix b/custom/notify-user.nix index c2ad3472..e9e98ddc 100644 --- a/custom/notify-user.nix +++ b/custom/notify-user.nix | |||
@@ -7,7 +7,7 @@ | |||
7 | stdenv.mkDerivation { | 7 | stdenv.mkDerivation { |
8 | name = ''notify-${user}''; | 8 | name = ''notify-${user}''; |
9 | src = writeTextFile { name = ''notify-${user}.hs''; text = '' | 9 | src = writeTextFile { name = ''notify-${user}.hs''; text = '' |
10 | {-# LANGUAGE ViewPatterns #-} | 10 | {-# LANGUAGE ViewPatterns, StandaloneDeriving #-} |
11 | 11 | ||
12 | import System.FilePath.Glob (glob) | 12 | import System.FilePath.Glob (glob) |
13 | import System.Environment (setEnv, getArgs) | 13 | import System.Environment (setEnv, getArgs) |
@@ -29,6 +29,8 @@ stdenv.mkDerivation { | |||
29 | import Data.Maybe | 29 | import Data.Maybe |
30 | import Text.Read (readMaybe) | 30 | import Text.Read (readMaybe) |
31 | 31 | ||
32 | deriving instance Read Notify.Urgency | ||
33 | |||
32 | main = do | 34 | main = do |
33 | envFiles <- glob "/home/${user}/.dbus/session-bus/*" | 35 | envFiles <- glob "/home/${user}/.dbus/session-bus/*" |
34 | forM_ envFiles $ \envFile -> do | 36 | forM_ envFiles $ \envFile -> do |