From d3ba3355e4625d5365a3dbce7b4d92d3051a9473 Mon Sep 17 00:00:00 2001
From: I-Al-Istannen <i-al-istannen@users.noreply.github.com>
Date: Sat, 28 Mar 2020 20:18:06 +0100
Subject: [PATCH] Fix nested ranges not overwriting their parents

---
 src/Mima/Vm/Flags.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Mima/Vm/Flags.hs b/src/Mima/Vm/Flags.hs
index b60f650..8289fa3 100644
--- a/src/Mima/Vm/Flags.hs
+++ b/src/Mima/Vm/Flags.hs
@@ -60,7 +60,7 @@ flagsFromMetadata metadata =
   Flags (flagSet "readonly") (flagSet "executable") (flagSet "breakpoint")
   where
     ranges = mdLocal metadata
-    rangesToMap key = mconcat . map (rangeToMap key) $ ranges
+    rangesToMap key = mconcat . reverse . map (rangeToMap key) $ ranges
     flagSet = Map.keysSet . Map.filter valueToBool . rangesToMap
 
 rangeToMap :: T.Text -> Range -> Map.Map MimaAddress A.Value