From 9bd42a97580cd9c859b8383902852b937539cf49 Mon Sep 17 00:00:00 2001
From: Getty Ritter <gdritter@galois.com>
Date: Fri, 6 Oct 2017 12:43:00 -0700
Subject: [PATCH] Add more haddocks for withURL function

---
 src/Graphics/Vty/Attributes.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Graphics/Vty/Attributes.hs b/src/Graphics/Vty/Attributes.hs
index b1d5ec0..09c7fc1 100644
--- a/src/Graphics/Vty/Attributes.hs
+++ b/src/Graphics/Vty/Attributes.hs
@@ -210,7 +210,13 @@ withStyle :: Attr -> Style -> Attr
 withStyle attr 0 = attr
 withStyle attr styleFlag = attr { attrStyle = SetTo $ styleMask attr .|. styleFlag }
 
--- | Add a hyperlinked URL
+-- | Add a hyperlinked URL using the proposed [escape sequences for
+-- hyperlinked
+-- URLs](https://gist.github.com/egmontkob/eb114294efbcd5adb1944c9f3cb5feda).
+-- These escape sequences are comparatively new and aren't widely
+-- supported in terminal emulators yet, but most terminal emulators
+-- that don't know about these sequences will ignore these
+-- sequences, and therefore this should fall back sensibly.
 withURL :: Attr -> Text -> Attr
 withURL attr url = attr { attrURL = SetTo url }