X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FReport.hs;h=a189664e1ff8d199b3cd87bca91a46b97a3e0832;hp=bceeaf8b6a7faeadf6871fb552d1c921bb26be5b;hb=48e2203550c93bd05ef34df7b17d8447f4fac93c;hpb=8e5a377920002012c38066a2d21b6393a78c677a

diff --git a/src/Report.hs b/src/Report.hs
index bceeaf8..a189664 100644
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -224,7 +224,7 @@ report cfg conn = do
   let remote_forwards = find_remote_forwards domains valid_forwards
   let forward_strings = map format_forward remote_forwards
 
-  return $ (join "\n" forward_strings) ++ "\n"
+  return $ (join "\n" forward_strings)
 
 
 
@@ -247,4 +247,5 @@ test_example1 =
     expected = "user1@example.com -> user1@example.net\n" ++
                "user2@example.com -> user1@example.org\n" ++
                "user2@example.com -> user2@example.org\n" ++
-               "user2@example.com -> user3@example.org\n"
+               "user2@example.com -> user3@example.org\n" ++
+               "user7@example.com -> user8@example.net"