diff --git a/servant-queryparam-openapi3.cabal b/servant-queryparam-openapi3.cabal
new file mode 100644
--- /dev/null
+++ b/servant-queryparam-openapi3.cabal
@@ -0,0 +1,32 @@
+cabal-version: 2.2
+name:          servant-queryparam-openapi3
+version:       1.0.0
+maintainer:    Danila Danko <https://github.com/deemp>
+author:        Kristof Bastiaensen
+copyright:     Kristof Bastiaensen 2020
+synopsis:
+  Instances of classes from [openapi3](https://hackage.haskell.org/package/openapi3) for [servant-queryparam-server](https://hackage.haskell.org/package/servant-queryparam-server).
+
+license:       BSD-3-Clause
+build-type:    Simple
+category:      Servant, Web
+
+source-repository head
+  type:     git
+  location: https://github.com/deemp/servant-queryparam
+
+library
+  default-language: GHC2021
+  ghc-options:      -Wall
+  exposed-modules:  Servant.OpenApi.Record
+  hs-source-dirs:   src
+  build-depends:
+    , base                     >=4.16  && <5
+    , bytestring
+    , openapi3
+    , servant                  >=0.19
+    , servant-openapi3
+    , servant-queryparam-core  >=1.0.0
+    , servant-server           >=0.19
+    , text
+    , warp
diff --git a/src/Servant/OpenApi/Record.hs b/src/Servant/OpenApi/Record.hs
new file mode 100644
--- /dev/null
+++ b/src/Servant/OpenApi/Record.hs
@@ -0,0 +1,26 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE InstanceSigs #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE UndecidableInstances #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
+-- | This module exports orphan instances to make
+-- [@servant-queryparam-core@](https://hackage.haskell.org/package/servant-queryparam-core) work with [@servant-openapi3@](https://hackage.haskell.org/package/servant-openapi3).
+module Servant.OpenApi.Record () where
+
+import Data.OpenApi
+import Data.Proxy
+import Servant.API
+import Servant.OpenApi
+import Servant.Record
+
+instance HasOpenApi (UnRecordParam mod (RecordParam mod a :> api)) => HasOpenApi (RecordParam mod a :> api) where
+  toOpenApi :: Proxy (RecordParam mod a :> api) -> OpenApi
+  toOpenApi _ = toOpenApi (Proxy :: Proxy (UnRecordParam mod (RecordParam mod a :> api)))