Change fragment link colors

So that they are distinguishable from active links.

1 files changed, 1 insertions, 1 deletions

diff --git a/Pancake.hs b/Pancake.hs
index 000279f..9357fa8 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -299,7 +299,7 @@ readInline (P.Link _ alt (url, title)) =
       case uri of
         -- fragment links are mostly useless here, at least for now.
         -- but still marking them as links, to avoid confusion.
-        (URI "" Nothing "" "" _) -> pure $ map (Fg Blue) t
+        (URI "" Nothing "" "" _) -> pure $ map (Fg Magenta) t
         _ -> storeLink uri >>=
              \cnt -> pure $ map (Fg Cyan) t ++
                      [Fg Blue (mconcat ["[", fromString $ show cnt, "]"])]