From 2be833ca09625faa97803c9e6920b0e6e97605be Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 10 Nov 2016 12:22:37 +0100 Subject: just strip separators --- ymir/mlmmj-expose.nix | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ymir/mlmmj-expose.nix') diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index b8a13cc4..0873b0f7 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix @@ -47,7 +47,7 @@ let uuidTrans = uuidTrans' . UUID.toString where uuidTrans' [] = [] - uuidTrans' ('-':xs) = '.' : uuidTrans' xs + uuidTrans' ('-':xs) = uuidTrans' xs uuidTrans' (x:xs) = x : uuidTrans' xs getContents >>= writeFile fName hPrintf stdout "Forwarding mail to <%s>, subscribed to %s\n" recipient (takeBaseName listDir) -- cgit v1.2.3