X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FReport.hs;h=a189664e1ff8d199b3cd87bca91a46b97a3e0832;hp=fb549e2ac8c5b47f3fea1ccb4d1f082fe0f45bfa;hb=48e2203550c93bd05ef34df7b17d8447f4fac93c;hpb=816f6f0bb26da2b3852d5bcc6dada3730d77fb98 diff --git a/src/Report.hs b/src/Report.hs index fb549e2..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) @@ -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" ++ - "user7@example.com -> user8@example.net\n" + "user7@example.com -> user8@example.net"