First working version

.gitignore

+dist-newstyle/
\ No newline at end of file

CHANGELOG.md

+# Revision history for servant-xml-conduit
+
+## 0.1.0.0 -- 2023-11-23
+
+* First version. Released on an unsuspecting world.

README.md

+# servant-xml-conduit
+
+This is similar to <https://hackage.haskell.org/package/servant-xml>,
+however we use
+[`xml-conduit`](https://hackage.haskell.org/package/xml-conduit)
+instead of [`xmlbf`](https://hackage.haskell.org/package/xmlbf). Also,
+we only provide a way to serialize
+[`Document`](https://hackage.haskell.org/package/xml-conduit-1.9.1.3/docs/Text-XML.html#t:Document)
+leaving end user to implement his own
+[`FromXml`](https://hackage.haskell.org/package/xmlbf-0.7/docs/Xmlbf.html#t:FromXml)
+typeclass.
+
+An example of using such a typeclass would be:
+```haskell
+import Data.Text qualified as T
+import Text.XML qualified as XML
+import Text.XML.Cursor qualified as XMLCursor
+
+
+data MyCustomErrors =
+     ErrorNoElementFound Text XMLCursor.Cursor
+   | ...
+
+class FromXML a where
+  fromXML :: (Functor m, Applicative m, MonadError MyCustomErrors m) => XMLCursor.Cursor -> m a
+
+instance FromXML T.Text where
+  fromXML = pure . T.concat . XMLCursor.content
+  
+instance FromXML Int where
+  fromXML c = do
+    let txt = (T.concat . XMLCursor.content) c
+	
+	case readEither txt of
+	  Left err -> throwError $ ErrorParsingInt c $ show err
+	  Right i  -> pure i
+```

servant-xml-conduit.cabal

+cabal-version:      3.0
+-- The cabal-version field refers to the version of the .cabal specification,
+-- and can be different from the cabal-install (the tool) version and the
+-- Cabal (the library) version you are using. As such, the Cabal (the library)
+-- version used must be equal or greater than the version stated in this field.
+-- Starting from the specification version 2.2, the cabal-version field must be
+-- the first thing in the cabal file.
+
+-- Initial package description 'servant-xml-conduit' generated by
+-- 'cabal init'. For further documentation, see:
+--   http://haskell.org/cabal/users-guide/
+--
+-- The name of the package.
+name:               servant-xml-conduit
+
+-- The package version.
+-- See the Haskell package versioning policy (PVP) for standards
+-- guiding when and how versions should be incremented.
+-- https://pvp.haskell.org
+-- PVP summary:     +-+------- breaking API changes
+--                  | | +----- non-breaking API additions
+--                  | | | +--- code changes with no API change
+version:            0.1.0.0
+
+-- A short (one-line) description of the package.
+-- synopsis:
+
+-- A longer description of the package.
+-- description:
+
+-- The license under which the package is released.
+license:            AGPL-3.0-or-later
+
+-- The file containing the license text.
+license-file:       LICENSE
+
+-- The package author(s).
+author:             Gargantext
+
+-- An email address to which users can send suggestions, bug reports, and patches.
+maintainer:         pk@intrepidus.pl
+
+-- A copyright notice.
+-- copyright:
+category:           Web
+build-type:         Simple
+
+-- Extra doc files to be distributed with the package, such as a CHANGELOG or a README.
+extra-doc-files:    CHANGELOG.md
+
+-- Extra source files to be distributed with the package, such as examples, or a tutorial module.
+-- extra-source-files:
+
+common warnings
+    ghc-options: -Wall
+
+library
+    -- Import common warning flags.
+    import:           warnings
+
+    -- Modules exported by the library.
+    exposed-modules:  Servant.XML.Conduit
+
+    -- Modules included in this library but not exported.
+    -- other-modules:
+
+    -- LANGUAGE extensions used by modules in this package.
+    -- other-extensions:
+
+    -- Other library packages from which modules are imported.
+    build-depends:    base ^>=4.14.3.0
+                    , bytestring ^>= 0.10.12.1
+                    , conduit ^>= 1.3.5
+                    , http-media ^>= 0.8
+                    , servant ^>= 0.19.1
+                    , xml-conduit ^>= 1.9.1.3
+                    , xml-types ^>= 0.3.8
+
+    -- Directories containing source files.
+    hs-source-dirs:   src
+
+    -- Base language which the package is written in.
+    default-language: Haskell2010
+
+
+    default-extensions:
+      FlexibleInstances
+      ImportQualifiedPost
+      OverloadedStrings
+      MultiParamTypeClasses

src/Servant/XML/Conduit.hs

+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE UndecidableInstances #-}
+
+{-|
+Module      : Servant.XML.Conduit
+Description : Servant bindings for XML using xml-conduit
+Copyright   : (c) CNRS, 2023-present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+-}
+
+module Servant.XML.Conduit where
+
+import Data.Bifunctor (first)
+import Network.HTTP.Media qualified as M
+import Servant.API
+import Text.XML qualified as XML
+
+
+data XML
+
+instance Accept XML where
+  contentType _ = "application" M.// "xml" M./: ("charset", "utf-8")
+
+instance {-# OVERLAPPING #-} MimeUnrender XML XML.Document where
+  mimeUnrender _ bs = first show $ XML.parseLBS XML.def bs
+instance MimeRender XML XML.Document where
+  mimeRender _ doc = XML.renderLBS XML.def doc