@@ -210,7 +210,13 @@ withStyle :: Attr -> Style -> Attr
210210withStyle attr 0 = attr
211211withStyle attr styleFlag = attr { attrStyle = SetTo $ styleMask attr .|. styleFlag }
212212
213−-- | Add a hyperlinked URL
213+-- | Add a hyperlinked URL using the proposed [escape sequences for
214+-- hyperlinked
215+-- URLs](https://gist.github.com/egmontkob/eb114294efbcd5adb1944c9f3cb5feda).
216+-- These escape sequences are comparatively new and aren't widely
217+-- supported in terminal emulators yet, but most terminal emulators
218+-- that don't know about these sequences will ignore these
219+-- sequences, and therefore this should fall back sensibly.
214220withURL :: Attr -> Text -> Attr
215221withURL attr url = attr { attrURL = SetTo url }
216222