recordOpener :: (MonadReader env m, Has Dir.Layout env) => m Char
recordOpener =
    Lens.view has <&>
    \case
    Dir.LeftToRight -> '{'
    Dir.RightToLeft -> '}'
recordOpener :: (MonadReader env m, Has Dir.Layout env) => m Char
recordOpener =
    Lens.view has <&>
    \case
    Dir.LeftToRight -> '{'
    Dir.RightToLeft -> '}'
recordOpener =
    Lens.view has <&>
    \case
    Dir.LeftToRight -> '{'
    Dir.RightToLeft -> '}'