From 08fc677a8db69259c3c91070b6a63ac46f93667e Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 30 May 2022 22:17:37 +1000 Subject: fixing links --- src/F2Md/Import.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/F2Md/Import.hs b/src/F2Md/Import.hs index eb6d014..bb37025 100644 --- a/src/F2Md/Import.hs +++ b/src/F2Md/Import.hs @@ -97,15 +97,15 @@ formatBody :: Maybe Text -> Maybe (Text, Maybe Text, Maybe Integer) -> Maybe Tex formatBody link encl desc = let linkText = case link of Nothing -> "" - Just link' -> "Link: <" <> link' <> ">\n\n" + Just link' -> " "'>Link\n" enclText = case encl of Nothing -> "" - Just (url, Nothing, Nothing) -> urlPt url <> "\n\n" - Just (url, Just ty, Nothing) -> urlPt url <> " (" <> ty <> ")\n\n" - Just (url, Nothing, Just len) -> urlPt url <> " (" <> lenPt len <> ")\n\n" + Just (url, Nothing, Nothing) -> urlPt url <> "\n" + Just (url, Just ty, Nothing) -> urlPt url <> " (" <> ty <> ")\n" + Just (url, Nothing, Just len) -> urlPt url <> " (" <> lenPt len <> ")\n" Just (url, Just ty, Just len) -> - urlPt url <> " (" <> ty <> ", " <> lenPt len <> ")\n\n" - where urlPt url = "Enclosure: <" <> url <> ">" + urlPt url <> " (" <> ty <> ", " <> lenPt len <> ")\n" + where urlPt url = "Enclosure" lenPt len = T.pack (show len) <> " bytes" in linkText <> enclText <> fromMaybe "" desc -- cgit v1.2.3