diff --git a/llvm-general-pure.cabal b/llvm-general-pure.cabal
--- a/llvm-general-pure.cabal
+++ b/llvm-general-pure.cabal
@@ -1,5 +1,5 @@
 name: llvm-general-pure
-version: 3.2.7.3
+version: 3.2.8.0
 license: BSD3
 license-file: LICENSE
 author: Benjamin S.Scarlet <fgthb0@greynode.net>
@@ -15,7 +15,7 @@
         It includes an ADT to represent LLVM IR (<http://llvm.org/docs/LangRef.html>). The llvm-general package
 	builds on this one with FFI bindings to LLVM, but llvm-general-pure does not require LLVM to be available.
   .
-  For haddock, see <http://bscarlet.github.io/llvm-general/3.2.7.3/doc/html/llvm-general-pure/index.html>.
+  For haddock, see <http://bscarlet.github.io/llvm-general/3.2.8.0/doc/html/llvm-general-pure/index.html>.
    
 source-repository head
   type: git
@@ -74,7 +74,7 @@
     HUnit >= 1.2.4.2,
     test-framework-quickcheck2 >= 0.3.0.1,
     QuickCheck >= 2.5.1.1,
-    llvm-general-pure == 3.2.7.3,
+    llvm-general-pure == 3.2.8.0,
     containers >= 0.4.2.1,
     mtl >= 2.0.1.0
   hs-source-dirs: test
diff --git a/src/LLVM/General/AST/Global.hs b/src/LLVM/General/AST/Global.hs
--- a/src/LLVM/General/AST/Global.hs
+++ b/src/LLVM/General/AST/Global.hs
@@ -45,10 +45,11 @@
         returnAttributes :: [A.ParameterAttribute],
         returnType :: Type,
         name :: Name,
-        parameters :: ([Parameter],Bool),
+        parameters :: ([Parameter],Bool), -- ^ snd indicates varargs
         functionAttributes :: [A.FunctionAttribute],
         section :: Maybe String,
         alignment :: Word32,
+        garbageCollectorName :: Maybe String,
         basicBlocks :: [BasicBlock]
       }
   deriving (Eq, Read, Show)
@@ -105,5 +106,6 @@
     functionAttributes = [],
     section = Nothing,
     alignment = 0,
+    garbageCollectorName = Nothing,
     basicBlocks = []
   }
diff --git a/test/LLVM/General/Test/PrettyPrint.hs b/test/LLVM/General/Test/PrettyPrint.hs
--- a/test/LLVM/General/Test/PrettyPrint.hs
+++ b/test/LLVM/General/Test/PrettyPrint.hs
@@ -18,7 +18,7 @@
          GlobalDefinition $ Function L.External V.Default CC.C [] (IntegerType 32) (Name "foo") ([
              Parameter (IntegerType 32) (Name "x") []
             ],False)
-            [] Nothing 0 
+            [] Nothing 0 Nothing
           [
            BasicBlock (UnName 0) [
             UnName 1 := Mul {
@@ -53,6 +53,7 @@
             \      A.G.functionAttributes = [],\n\
             \      A.G.section = Nothing,\n\
             \      A.G.alignment = 0,\n\
+            \      A.G.garbageCollectorName = Nothing,\n\
             \      A.G.basicBlocks = [\n\
             \        A.G.BasicBlock (A.UnName 0) [\n\
             \          A.UnName 1 A.:= A.Mul {\n\