parseKlcLayout ∷ Logger m ⇒ String → L.Text → Either String (m Layout)
parseKlcLayout fname =
    parse (runWriterT (emptyOrCommentLines *> layout <* eof)) fname >>>
    bimap errorBundlePretty writer
parseKlcLayout fname =
    parse (runWriterT (emptyOrCommentLines *> layout <* eof)) fname >>>
    bimap errorBundlePretty writer