closeParenChars :: (MonadReader env m, Has Dir.Layout env) => m [Char]
closeParenChars =
    Lens.view has <&>
    \case
    Dir.LeftToRight -> ")]"
    Dir.RightToLeft -> "(["
closeParenChars :: (MonadReader env m, Has Dir.Layout env) => m [Char]
closeParenChars =
    Lens.view has <&>
    \case
    Dir.LeftToRight -> ")]"
    Dir.RightToLeft -> "(["
closeParenChars =
    Lens.view has <&>
    \case
    Dir.LeftToRight -> ")]"
    Dir.RightToLeft -> "(["