diff --git a/src/Text/Pandoc/Writers/ANSI.hs b/src/Text/Pandoc/Writers/ANSI.hs
index 0a26e5abe..975ec224c 100644
--- a/src/Text/Pandoc/Writers/ANSI.hs
+++ b/src/Text/Pandoc/Writers/ANSI.hs
@@ -268,7 +268,7 @@ inlineToANSI _ Space = return D.space
 
 inlineToANSI opts (Link (_, _, _) txt (src, _)) = do
   label <- inlineListToANSI opts txt
-  return $ D.fg D.cyan $ D.link src label
+  return $ D.underlined $ D.fg D.cyan $ D.link src label
 
 inlineToANSI opts (Image _ alt _) = do
   alt' <- inlineListToANSI opts alt