-- Parse affix or delimiter into Formatted, splitting out
-- raw components in @{{format}}...{{/format}}@.
formatString :: Text -> Formatted
formatString s =
  case parse pAffix (T.unpack s) s of
       Left _    -> fromString (T.unpack s)
       Right ils -> Formatted ils
formatString :: Text -> Formatted
formatString s =
  case parse pAffix (T.unpack s) s of
       Left _    -> fromString (T.unpack s)
       Right ils -> Formatted ils
formatString s =
  case parse pAffix (T.unpack s) s of
       Left _    -> fromString (T.unpack s)
       Right ils -> Formatted ils