fixing links

1 files 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' -> "<a href='" <> link' <> "'>Link</a>\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 = "<a href='" <> url <> "'>Enclosure</a>"
               lenPt len = T.pack (show len) <> " bytes"
   in
     linkText <> enclText <> fromMaybe "" desc