diff --git a/lib/Hikaru/Types.hs b/lib/Hikaru/Types.hs
index 8394f9a3d52503b788cc8bb6ad609dd2bf664650..b407e984f124a14984156f3aefec0bcbbcaf4e00 100644
--- a/lib/Hikaru/Types.hs
+++ b/lib/Hikaru/Types.hs
@@ -312,7 +312,7 @@ where
 
     where
       response st = resp . responseLBS st [(hContentType, "text/plain")]
-                         . cs . (<> "\n" <> msg)
+                         . cs . (\str -> if msg == "" then str else msg)
 
 
   -- |