layoutDepth :: Parser Int
layoutDepth = Parser $ \s -> case s^.parserLayout of 
  IndentedLayout n:_ -> Pure n mempty
  _                  -> Pure 0 mempty
layoutDepth :: Parser Int
layoutDepth = Parser $ \s -> case s^.parserLayout of 
  IndentedLayout n:_ -> Pure n mempty
  _                  -> Pure 0 mempty
layoutDepth = Parser $ \s -> case s^.parserLayout of 
  IndentedLayout n:_ -> Pure n mempty
  _                  -> Pure 0 mempty