This module provides a more pleasant way to write C ASTs for language-c As a simple example,

{-# LANGUAGE OverloadedStrings #-}

import Language.C.DSL

example :: CFunDef
example =
  fun [intTy] "foo"[int "a", int "b"] $ block [
      creturn $ "a" + "b"
  ]

And when loaded into GHCi

Main*> pretty example
int foo(int a, int b)
{
  return a + b;
}

This module also exports Language.C for simplicity.