diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,4 @@
+0.1.1.0
+=======
+
+* `PagedList` schema name now contains names of parameters.
diff --git a/servant-auth-token-api.cabal b/servant-auth-token-api.cabal
--- a/servant-auth-token-api.cabal
+++ b/servant-auth-token-api.cabal
@@ -1,5 +1,5 @@
 name:                servant-auth-token-api
-version:             0.1.0.1
+version:             0.1.1.0
 synopsis:            Servant based API for token based authorisation
 description:         Please see README.md
 homepage:            https://github.com/ncrashed/servant-auth-token-api#readme
@@ -12,6 +12,7 @@
 build-type:          Simple
 extra-source-files:
   README.md
+  CHANGELOG.md
 cabal-version:       >=1.10
 
 library
diff --git a/src/Servant/API/Auth/Token/Pagination.hs b/src/Servant/API/Auth/Token/Pagination.hs
--- a/src/Servant/API/Auth/Token/Pagination.hs
+++ b/src/Servant/API/Auth/Token/Pagination.hs
@@ -20,8 +20,12 @@
   ) where 
 
 import Data.Aeson.WithField 
+import Data.Monoid
 import Data.Proxy 
 import Data.Swagger
+import Data.Swagger.Internal.Schema
+import Data.Text (pack)
+import Data.Typeable
 import GHC.Generics 
 import Servant.API
 import Servant.API.Auth.Token.Internal.DeriveJson 
@@ -52,9 +56,14 @@
 } deriving (Generic, Show)
 $(deriveJSON (derivePrefix "pagedList") ''PagedList)
 
-instance (ToSchema i, ToSchema a) => ToSchema (PagedList i a) where 
-  declareNamedSchema = genericDeclareNamedSchema $
-    schemaOptionsDropPrefix "pagedList"
+instance (Typeable i, Typeable a, ToSchema i, ToSchema a) => ToSchema (PagedList i a) where 
+  declareNamedSchema p = do
+    s <- genericDeclareNamedSchema (schemaOptionsDropPrefix "pagedList") p
+    return $ rename nm s
+    where 
+    nm = Just $ "PagedList " <> iname <> " " <> aname
+    iname = pack . show $ typeRep (Proxy :: Proxy i)
+    aname = pack . show $ typeRep (Proxy :: Proxy a)
 
 instance (ToSample i, ToSample a) => ToSample (PagedList i a) where
   toSamples _ = samples $ [s $ toSamples (Proxy :: Proxy (WithId i a))]