diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-11-09 21:09:44 +0100 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-11-09 21:09:44 +0100 |
| commit | bdc3fc7be5e7c8d79001d419d1a587e4a3280bed (patch) | |
| tree | 180aa100fda8686a981c16b0297939865a77bcb6 | |
| parent | 3dacdaab1c476500be4f178a3bf183f23e414e3e (diff) | |
| download | nixos-bdc3fc7be5e7c8d79001d419d1a587e4a3280bed.tar nixos-bdc3fc7be5e7c8d79001d419d1a587e4a3280bed.tar.gz nixos-bdc3fc7be5e7c8d79001d419d1a587e4a3280bed.tar.bz2 nixos-bdc3fc7be5e7c8d79001d419d1a587e4a3280bed.tar.xz nixos-bdc3fc7be5e7c8d79001d419d1a587e4a3280bed.zip | |
mlmmjs parser is questionable
| -rw-r--r-- | ymir/mlmmj-expose.nix | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 8c7dfb91..b8a13cc4 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -43,7 +43,12 @@ let | |||
| 43 | case hashes of | 43 | case hashes of |
| 44 | [((_, recipient), _)] -> do | 44 | [((_, recipient), _)] -> do |
| 45 | uuid <- UUID.nextRandom | 45 | uuid <- UUID.nextRandom |
| 46 | let fName = "queue" </> "exposed" <.> UUID.toString uuid | 46 | let fName = "queue" </> "exposed" <.> uuidTrans uuid |
| 47 | uuidTrans = uuidTrans' . UUID.toString | ||
| 48 | where | ||
| 49 | uuidTrans' [] = [] | ||
| 50 | uuidTrans' ('-':xs) = '.' : uuidTrans' xs | ||
| 51 | uuidTrans' (x:xs) = x : uuidTrans' xs | ||
| 47 | getContents >>= writeFile fName | 52 | getContents >>= writeFile fName |
| 48 | hPrintf stdout "Forwarding mail to <%s>, subscribed to %s\n" recipient (takeBaseName listDir) | 53 | hPrintf stdout "Forwarding mail to <%s>, subscribed to %s\n" recipient (takeBaseName listDir) |
| 49 | callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", fName, "-T", recipient] | 54 | callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", fName, "-T", recipient] |