Code review feedback

* Rename `exampleS` into `exampleSchema`; * Revert commit about the public keys & co;

Code review feedback
* Rename `exampleS` into `exampleSchema`; * Revert commit about the public keys & co;
483bd3e5 · Alfredo Di Napoli · 18d207f0 · 483bd3e5
Commit 483bd3e5 authored Jan 28, 2025 by Alfredo Di Napoli
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Remote.hs src/Gargantext/API/Routes/Named/Remote.hs +2 -2

No files found.
--- a/src/Gargantext/API/Routes/Named/Remote.hs
+++ b/src/Gargantext/API/Routes/Named/Remote.hs
@@ -58,8 +58,8 @@ instance FromJSON RemoteExportRequest where
 instance ToSchema RemoteExportRequest where
  declareNamedSchema _ =
-    let exampleS = RemoteExportRequest (UnsafeMkNodeId 42) (BaseUrl Http "dev.sub.gargantext.org" 8008 "") ("abcdef")
+    let exampleSchema = RemoteExportRequest (UnsafeMkNodeId 42) (BaseUrl Http "dev.sub.gargantext.org" 8008 "") ("abcdef")
-    in pure $ NamedSchema (Just "RemoteExportRequest") $ sketchStrictSchema exampleS
+    in pure $ NamedSchema (Just "RemoteExportRequest") $ sketchStrictSchema exampleSchema
 newtype RemoteBinaryData = RemoteBinaryData { getRemoteBinaryData :: BS.ByteString }
  deriving (Show, Eq, Ord)