diff --git a/rainbow-quox/make-palette/make-palette.hs b/rainbow-quox/make-palette/make-palette.hs index f2ce368..1634793 100644 --- a/rainbow-quox/make-palette/make-palette.hs +++ b/rainbow-quox/make-palette/make-palette.hs @@ -76,8 +76,8 @@ makeOnly layer display index = makeMinor :: Text -> Maybe Text -> Text -> Maybe Text -> Int -> Element makeMinor layer1 display1 layer2 _display2 index = itemGroup layer1 index - [makeRect layer1 RMaj, - makeRect layer2 RMin, + [makeRect layer2 RMin, + makeRect layer1 RMaj, makeTextBg layer1, makeName (fromMaybe layer1 display1) Two, makeHex layer1 SFirst, @@ -86,8 +86,8 @@ makeMinor layer1 display1 layer2 _display2 index = makeUse :: Text -> Maybe Text -> Text -> Int -> Element makeUse layer1 display1 layer2 index = itemGroup layer1 index - [makeRect layer1 RMaj, - use_ [makeAttribute "href" $ "#s-" <> layer2], + [use_ [makeAttribute "href" $ "#s-" <> layer2], + makeRect layer1 RMaj, makeTextBg layer1, makeName (fromMaybe layer1 display1) Two, makeHex layer1 SFirst,