Remove trailing newline in output.

diff --git a/src/Report.hs b/src/Report.hs
index fb549e2ac8c5b47f3fea1ccb4d1f082fe0f45bfa..a189664e1ff8d199b3cd87bca91a46b97a3e0832 100644 (file)
--- 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
 
   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)

 
 
 
 
 
 


@@ -248,4 +248,4 @@ test_example1 =
                "user2@example.com -> user1@example.org\n" ++
                "user2@example.com -> user2@example.org\n" ++
                "user2@example.com -> user3@example.org\n" ++
                "user2@example.com -> user1@example.org\n" ++
                "user2@example.com -> user2@example.org\n" ++
                "user2@example.com -> user3@example.org\n" ++

-               "user7@example.com -> user8@example.net\n"
+               "user7@example.com -> user8@example.net"