Browse Source

Adapted to new addressing style

Marcos Dumay de Medeiros 7 years ago
parent
commit
80a1f22281
1 changed files with 2 additions and 2 deletions
  1. 2 2
      src/Walrus/Backend/Metadata.hs

+ 2 - 2
src/Walrus/Backend/Metadata.hs

@@ -237,8 +237,8 @@ renderMetadata m = BS.concat $ serializeDt ++ serializeMain ++ ["\r\n"]
         "SMTP-UTF8: ", serialBool utf, "\r\n"
         ] :: [String]
       in map s h ++ toStr ++ failStr
-    serializeHandle (AccountRequest a) = ["Target: ", s . show $ a, "\r\n"]
-    serializeHandle (AccountResponse (a, r)) = ["Failed: ", fullAccount a, renderLineResponse r, "\r\n"]
+    serializeHandle (AccountRequest a) = ["To: ", s . fullAccount $ a, "\r\n"]
+    serializeHandle (AccountResponse (a, r)) = ["Failed: ", fullAccount a, "; ", renderLineResponse r, "\r\n"]
     serializeHandle AccountOk = []
     serializeFetchResc (FetchRescData cnm rfm ofst sz trg resp) =
       ["Client-Name: ", s cnm, "\r\n",