diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,43 @@
+- 0.3.5.4.14.0
+ - Update to `swagger-ui-4.14.0`
+
+- 0.3.5.3.47.1
+ - Update to `swagger-ui-3.47.1`
+ - Generalize `swaggerSchemaUIServer` to support arbitrary `Value` instead of hardcoded `Swagger`
+ type.
+
+- 0.3.4.3.46.0
+ - Update to `swagger-ui-3.46.0`
+
+- 0.3.4.3.37.2
+ - Update to `swagger-ui-3.37.2`
+ - Add `swaggerSchemaUIServerT` and `swaggerSchemaUIServerT'`
+
+- 0.3.4.3.36.1
+ - Update to `swagger-ui-3.36.1`
+
+- 0.3.4.3.23.11
+ - Update to `swagger-ui-3.23.11`
+
+- 0.3.4.3.22.2
+ - Fix #67: We didn't use served `swagger.json`
+
+- 0.3.3.3.22.2
+ - Update to `swagger-ui-3.22.2`
+ - Add `swaggerSchemaUIServer'`
+
+- 0.3.2.3.19.3
+ - Update to `swagger-ui-3.19.3`
+ - Add GHC-8.6 support
+ - Drop `servant<0.14` support
+
+- 0.3.0.3.13.2
+ - Update to `swagger-ui-3.13.2`
+ - Split package into multiple packages:
+ - [`servant-swagger-ui-core`](http://hackage.haskell.org/package/servant-swagger-ui-core)
+ - [`servant-swagger-ui-redoc`](http://hackage.haskell.org/package/servant-swagger-ui-redoc)
+ - [`servant-swagger-ui-jensoleg`](http://hackage.haskell.org/package/servant-swagger-ui-jensoleg)
+
- 0.2.5.3.9.1
- Support `servant-0.13`
- Update to `swagger-ui-3.9.1`
diff --git a/README.md b/README.md
deleted file mode 100644
--- a/README.md
+++ /dev/null
@@ -1,26 +0,0 @@
-# servant-swagger-ui
-
-*Provide a Swagger UI for your Servant API*
-
-"[Swagger UI](http://swagger.io/swagger-ui/) allows anyone — be it your development team or your end consumers — to visualize and interact with the API’s resources without having any of the implementation logic in place."
-
-[](https://travis-ci.org/phadej/servant-swagger-ui)
-[](http://hackage.haskell.org/package/servant-swagger-ui)
-[](http://stackage.org/lts-5/package/servant-swagger-ui)
-[](http://stackage.org/nightly/package/servant-swagger-ui)
-
-## Example
-
-
-
-Check [`example/Main.hs`](https://github.com/phadej/servant-swagger-ui/blob/master/example/Main.hs) for an example.
-
-## Development
-
-### Updating of bundled swagger-ui version:
-
-- Extract `dist` directory of `swagger-ui` into `swagger-dist-<version>`. Remove the `*.map` files.
-- update `extra-source-files` in the `.cabal`
-- move `index.html` into `index.html.tmpl`, do the diff, port the changes
-- search replace the embbeded directory (in `Servant/Swagger/UI.hs`)
-- test it works
diff --git a/Setup.hs b/Setup.hs
deleted file mode 100644
--- a/Setup.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-import Distribution.Simple
-main :: IO ()
-main = defaultMain
diff --git a/example/Main.hs b/example/Main.hs
deleted file mode 100644
--- a/example/Main.hs
+++ /dev/null
@@ -1,176 +0,0 @@
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE DataKinds #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TypeOperators #-}
-{-# LANGUAGE UndecidableInstances #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-module Main (main, catIsMale, catName) where
-
-import Prelude ()
-import Prelude.Compat
-
-import Control.Lens hiding ((.=))
-import Data.Aeson (ToJSON, FromJSON)
-import Data.Maybe (fromMaybe)
-import Data.String (IsString (..))
-import Data.Text (Text)
-import GHC.Generics (Generic)
-import Network.Wai (Application)
-import System.Environment (getArgs, lookupEnv)
-import Text.Read (readMaybe)
-
-import Data.Swagger
-import Servant
-import Servant.Swagger
-import Servant.Swagger.UI
-
-import qualified Network.Wai.Handler.Warp as Warp
-
-#if MIN_VERSION_servant(0,7,0)
--- do nothing
-#else
-#if MIN_VERSION_servant(0,5,0)
-import Control.Monad.Trans.Except (ExceptT)
-#define Handler ExceptT ServantErr IO
-#else
-import Control.Monad.Trans.Either (EitherT)
-#define Handler EitherT ServantErr IO
-#endif
-#endif
-
-#if MIN_VERSION_servant(0,12,0)
-#define SUMMARY(d) Summary d :>
-#else
-#define SUMMARY(d)
-#endif
-
--- data types
-data Cat = Cat { catName :: CatName, catIsMale :: Bool }
- deriving (Generic, Show)
-
-newtype CatName = CatName Text
- deriving ( Eq, Show, Generic
-#if MIN_VERSION_servant(0,5,0)
- , FromHttpApiData
-#else
- , FromText
-#endif
- )
-
-instance IsString CatName where
- fromString = CatName . fromString
-
--- swagger instances
-instance ToJSON Cat
-instance ToJSON CatName
-instance FromJSON Cat
-instance FromJSON CatName
-instance ToParamSchema CatName
-instance ToSchema Cat
-instance ToSchema CatName
-
--- api
-
-type FirstCatEndpoint =
-#if MIN_VERSION_servant(0,13,0)
- "cat"
- :> Summary "First cat endpoint"
- :> Capture' '[Description "Cat's name"] ":name" CatName
- :> QueryParam' '[Required, Description "Random number"] "num" Int
- :> QueryParam' '[Optional, Description "Random text"] "text" Text
- :> Get '[JSON] Cat
-#else
- "cat" :> Capture ":name" CatName
- :> QueryParam "num" Int :> QueryParam "text" Text :> Get '[JSON] Cat
-#endif
-
-type BasicAPI = Get '[PlainText, JSON] Text
- :<|> FirstCatEndpoint
- :<|> SUMMARY("Second cat") "cat2" :> Capture ":name" CatName :> Get '[JSON] Cat
- :<|> SUMMARY("Third cat") "cat3" :> Capture ":name" CatName :> Get '[JSON] Cat
- :<|> SUMMARY("Post endpoint") "post-cat" :> ReqBody '[JSON] Cat :> Post '[JSON] Cat
-
-type API =
- -- this serves both: swagger.json and swagger-ui
- SwaggerSchemaUI "swagger-ui" "swagger.json"
- :<|> BasicAPI
-
--- To test nested case
-type API' = API
- :<|> "nested" :> API
- :<|> SwaggerSchemaUI' "foo-ui" ("foo" :> "swagger.json" :> Get '[JSON] Swagger)
-
--- Implementation
-
--- | We test different ways to nest API, so we have an enumeration
-data Variant
- = Normal
- | Nested
- | SpecDown
- deriving (Eq)
-
-data UIFlavour
- = Original
- | JensOleG
- deriving (Eq)
-
-server' :: UIFlavour -> Server API'
-server' uiFlavour = server Normal
- :<|> server Nested
- :<|> schemaUiServer (swaggerDoc' SpecDown)
- where
- server :: Variant -> Server API
- server variant =
- schemaUiServer (swaggerDoc' variant)
- :<|> (return "Hello World" :<|> catEndpoint' :<|> catEndpoint :<|> catEndpoint :<|> return)
- where
- catEndpoint' n _ _ = return $ Cat n (variant == Normal)
- catEndpoint n = return $ Cat n (variant == Normal)
- -- Unfortunately we have to specify the basePath manually atm.
-
- schemaUiServer
- :: (Server api ~ Handler Swagger)
- => Swagger -> Server (SwaggerSchemaUI' dir api)
- schemaUiServer = case uiFlavour of
- Original -> swaggerSchemaUIServer
- JensOleG -> jensolegSwaggerSchemaUIServer
-
- swaggerDoc' Normal = swaggerDoc
- swaggerDoc' Nested = swaggerDoc
- & basePath ?~ "/nested"
- & info.description ?~ "Nested API"
- swaggerDoc' SpecDown = swaggerDoc
- & info.description ?~ "Spec nested"
-
--- Boilerplate
-
-swaggerDoc :: Swagger
-swaggerDoc = toSwagger (Proxy :: Proxy BasicAPI)
- & info.title .~ "Cats API"
- & info.version .~ "2016.8.7"
- & info.description ?~ "This is an API that tests servant-swagger support"
-
-api :: Proxy API'
-api = Proxy
-
-app :: UIFlavour -> Application
-app = serve api . server'
-
-main :: IO ()
-main = do
- args <- getArgs
- let uiFlavour = if "jensoleg" `elem` args then JensOleG else Original
- case args of
- ("run":_) -> do
- p <- fromMaybe 8000 . (>>= readMaybe) <$> lookupEnv "PORT"
- putStrLn $ "http://localhost:" ++ show p ++ "/"
- Warp.run p (app uiFlavour)
- _ -> do
- putStrLn "Example application, used as a compilation check"
- putStrLn "To run, pass run argument: --test-arguments run"
diff --git a/index.html.tmpl b/index.html.tmpl
--- a/index.html.tmpl
+++ b/index.html.tmpl
@@ -1,114 +1,82 @@
-
-
- Swagger UI
-
-
-
-
-
-
-
-
-
-
-
-