diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright Author name here (c) 2018
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Author name here nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,8 @@
+# servant-xml
+
+Servant support for XML.
+
+Types with a `ToXml` instance will be automatically marshalled into XML
+and successfully returned by Servant endpoints.
+In implementing `toXml`, you can use the `element` and `text` primatives
+found in the *xmlbf* library.
diff --git a/servant-xml.cabal b/servant-xml.cabal
new file mode 100644
--- /dev/null
+++ b/servant-xml.cabal
@@ -0,0 +1,36 @@
+-- This file has been generated from package.yaml by hpack version 0.20.0.
+--
+-- see: https://github.com/sol/hpack
+--
+-- hash: 75be9f1914f9d92bff857fc253157776eb3d96b62a3fe6f8651a841647e01fbb
+
+name:           servant-xml
+version:        1.0.0
+synopsis:       Servant support for the XML Content-Type
+description:    Servant support for the Content-Type of /application\/xml/. Anything with a 'Xmlbf.ToXml' instance can be automatically marshalled.
+category:       Web
+homepage:       https://github.com/fosskers/servant-xml
+author:         Colin Woodbury
+maintainer:     colingw@gmail.com
+copyright:      2018 Colin Woodbury
+license:        BSD3
+license-file:   LICENSE
+build-type:     Simple
+cabal-version:  >= 1.10
+
+extra-source-files:
+    README.md
+
+library
+  hs-source-dirs:
+      src
+  ghc-options: -fwarn-unused-imports -fwarn-unused-binds -fwarn-name-shadowing -fwarn-unused-matches -fwarn-incomplete-patterns -fwarn-incomplete-uni-patterns
+  build-depends:
+      base >=4.7 && <5
+    , bytestring
+    , http-media >=0.7 && <0.8
+    , servant >=0.11 && <0.13
+    , xmlbf >=0.3 && <0.4
+  exposed-modules:
+      Servant.XML
+  default-language: Haskell2010
diff --git a/src/Servant/XML.hs b/src/Servant/XML.hs
new file mode 100644
--- /dev/null
+++ b/src/Servant/XML.hs
@@ -0,0 +1,42 @@
+{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+-- |
+-- Module    : Servant.XML
+-- Copyright : (c) Colin Woodbury, 2018
+-- License   : BSD3
+-- Maintainer: Colin Woodbury <colingw@gmail.com>
+--
+-- Servant support for XML.
+--
+-- Types with a `ToXml` instance will be automatically marshalled into XML
+-- and successfully returned by Servant endpoints.
+-- In implementing `toXml`, you can use the `element` and `text` primatives
+-- found in the /xmlbf/ library.
+
+module Servant.XML where
+
+import           Data.ByteString.Builder (toLazyByteString)
+import qualified Network.HTTP.Media as M
+import           Servant.API
+import           Xmlbf
+
+---
+
+-- | The /application\/xml/ Content-Type. To be used in Servant endpoints like:
+--
+-- @
+-- data Foo = ...
+--
+-- instance ToXml Foo where
+--   toXml foo = ...
+--
+-- type API = ... :\<|\> "foo" :> Get '[XML] Foo
+-- @
+data XML
+
+instance Accept XML where
+  contentType _ = "application" M.// "xml" M./: ("charset", "utf-8")
+
+instance ToXml a => MimeRender XML a where
+  mimeRender _ = toLazyByteString . encode . toXml