formatVariant :: Variant -> Text
formatVariant v = fromJust $ T.stripPrefix "Variant " $ T.pack $ show v
formatVariant :: Variant -> Text
formatVariant v = fromJust $ T.stripPrefix "Variant " $ T.pack $ show v
formatVariant v = fromJust $ T.stripPrefix "Variant " $ T.pack $ show v