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