From 885d872539e75b483b2fab5528a216c139f1c6b9 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Mon, 25 Nov 2019 18:24:57 +0000
Subject: [PATCH] Always show all flags if flags are visible

---
 src/Mima/Format/State.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/Mima/Format/State.hs b/src/Mima/Format/State.hs
index e32c4f2..c80665f 100644
--- a/src/Mima/Format/State.hs
+++ b/src/Mima/Format/State.hs
@@ -177,9 +177,13 @@ interestingAddresses = do
   env <- ask
   let conf = feConf env
       s = feState env
-  pure $ if fcShowRegisterFlags conf
-    then Set.fromList [msIAR s, msRA s, msSP s, msFP s]
-    else Set.empty
+      regAddrs = if fcShowRegisterFlags conf
+        then Set.fromList [msIAR s, msRA s, msSP s, msFP s]
+        else Set.empty
+      labelAddrs = if fcShowLabels conf
+        then Map.keysSet $ feLabels env
+        else Set.empty
+  pure $ Set.union regAddrs labelAddrs
   
 getAddresses :: FormatReader [MimaAddress]
 getAddresses = do