getOutputDraft :: FilePath -> Section -> IO OutputSection
getOutputDraft inputWrapperPath draft = do
  (result, _) <- getOutputSection inputWrapperPath True Nothing 1 [] draft
  return result
getOutputDraft :: FilePath -> Section -> IO OutputSection
getOutputDraft inputWrapperPath draft = do
  (result, _) <- getOutputSection inputWrapperPath True Nothing 1 [] draft
  return result
getOutputDraft inputWrapperPath draft = do
  (result, _) <- getOutputSection inputWrapperPath True Nothing 1 [] draft
  return result