1 files changed, 1 insertions, 1 deletions
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)

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
47	uuidTrans = uuidTrans' . UUID.toString	47	uuidTrans = uuidTrans' . UUID.toString
48	where	48	where
49	uuidTrans' [] = []	49	uuidTrans' [] = []
50	uuidTrans' ('-':xs) = '.' : uuidTrans' xs	50	uuidTrans' ('-':xs) = uuidTrans' xs
51	uuidTrans' (x:xs) = x : uuidTrans' xs	51	uuidTrans' (x:xs) = x : uuidTrans' xs
52	getContents >>= writeFile fName	52	getContents >>= writeFile fName
53	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)