Cartel without the header

gistfile1.txt

-- Cartel without the header
module Main where

import Cartel
import System.Exit

getCabal :: Betsy IO Cabal
getCabal = do
  -- Assumes of course you have some modules in "lib".
  -- Really, since this computation does not make flags, there's
  -- no need to use Betsy
  mods <- modules "lib"
  return $ cabal (blank { name = "noCartelHeader", version = [1,0]})
                 [exposedModules mods] []

main :: IO ()
main = do
  c <- renderBetsy getCabal
  case c of
    Left e -> do
      putStr . renderIndented 0 $ e
      exitFailure
    Right g -> putStr g