Temporary workaround: avoid PackageInfo

well-typed · Jul 28, 2023 · 91ed7e2 · 91ed7e2
1 parent f93655f
commit 91ed7e2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 10 deletions.
diff --git a/grapesy.cabal b/grapesy.cabal
@@ -125,8 +125,6 @@ library
       Network.GRPC.Util.Session.Server
       Network.GRPC.Util.Thread
       Network.GRPC.Util.TLS
-
-      PackageInfo_grapesy
   hs-source-dirs:
       src
   build-depends:

diff --git a/src/Network/GRPC/Spec/Request.hs b/src/Network/GRPC/Spec/Request.hs
@@ -11,11 +11,9 @@ module Network.GRPC.Spec.Request (
   ) where
 
 import Data.ByteString.Char8 qualified as BS.Strict.C8
-import Data.List (intersperse)
 import Data.List.NonEmpty (NonEmpty)
 import Data.Maybe (catMaybes)
 import Data.SOP
-import Data.Version
 import Network.HTTP.Types qualified as HTTP
 
 import Network.GRPC.Spec
@@ -26,8 +24,6 @@ import Network.GRPC.Spec.PercentEncoding qualified as PercentEncoding
 import Network.GRPC.Spec.RPC
 import Network.GRPC.Util.Partial
 
-import PackageInfo_grapesy qualified as PackageInfo
-
 {-------------------------------------------------------------------------------
   Construction
 -------------------------------------------------------------------------------}
@@ -140,11 +136,9 @@ callDefinition proxy = \hdrs -> catMaybes [
         , mconcat [
               "grpc-"
             , "haskell"
-            , "-" <> BS.Strict.C8.pack (PackageInfo.name)
+            , "-" <> "grapesy"
             , "/"
-            , mconcat . intersperse "." $
-                map (BS.Strict.C8.pack . show) $
-                  versionBranch PackageInfo.version
+            , "0.1.0"
             ]
         )