diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Changelog for compdoc
 
-# v0.1.0.0
+## v0.2.0.0
+
+* Removed type family from compdoc definition.
+
+## v0.1.0.0
 
 * Initial data declaration and parsing functions.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,6 +1,8 @@
 # Compdoc - Composite Pandoc Format
 
-Compdoc is an alternative format for reading pandoc markdown data using [composite](https://hackage.haskell.org/package/composite-base) and [composite-aeson](https://hackage.haskell.org/package/composite-aeson).
+Compdoc is an alternative format for reading pandoc markdown data using
+[composite](https://hackage.haskell.org/package/composite-base) and
+[composite-aeson](https://hackage.haskell.org/package/composite-aeson).
 
 Compdoc will read a pandoc markdown file according to the `JsonFormat` that you
 supply to parse the metadata, and place the main body in an `FContents` fields
diff --git a/compdoc.cabal b/compdoc.cabal
--- a/compdoc.cabal
+++ b/compdoc.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           compdoc
-version:        0.1.0.0
+version:        0.2.0.0
 synopsis:       Parse a Pandoc to a composite value.
 description:    Provides a functionality for transforming a Pandoc into a vinyl/composite record.
 category:       Text
diff --git a/src/Text/Compdoc.hs b/src/Text/Compdoc.hs
--- a/src/Text/Compdoc.hs
+++ b/src/Text/Compdoc.hs
@@ -10,6 +10,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE TemplateHaskell   #-}
+{-# LANGUAGE TypeApplications  #-}
 {-# LANGUAGE TypeOperators     #-}
 module Text.Compdoc (
   FContent
@@ -30,7 +31,6 @@
 import           Composite.TH
 import           Data.Aeson
 import           Data.Vinyl ((<+>))
-import           Data.Vinyl.TypeLevel
 import           Path
 import           RIO
 import           Text.Pandoc
@@ -42,7 +42,7 @@
   |]
 
 -- | A Compdoc is a Record with at least an FContent field.
-type Compdoc a = a ++ (FContent : '[])
+type Compdoc a = FContent ': a
 
 -- | Write a list of `Block`s to `Text` using `WriterOptions` defaulting to the empty string
 -- in the case of error.
@@ -71,7 +71,7 @@
 pandocToCompdoc :: (Typeable e, Show e, MonadThrow m) => (WriterOptions -> Pandoc -> PandocPure Text) -> WriterOptions -> JsonFormat e (Record a) -> Pandoc -> m (Record (Compdoc a))
 pandocToCompdoc writer wopts f (Pandoc meta xs) = do
   k <- flattenMeta (writer wopts) meta >>= parseValue' f
-  return $ k <+> contentBlock wopts xs
+  return $ contentBlock wopts xs <+> k
 
 -- | Create the tail of a `Compdoc` which is just an `FContent` field.
 contentBlock :: WriterOptions -> [Block] -> Record (FContent : '[])