wip

cqg-cms-api-client/app/cqg-cms-example/Main.hs

@@ -0,0 +1,48 @@
+
+module Main where
+
+import Lib
+
+import Wuss
+
+
+-- | Get a 'String' environment variable.
+getEnv ::
+    -- | Environment variable to lookup
+    String ->
+    -- | Default value to use if the environment variable is not set.
+    String ->
+    IO String
+getEnv envVar defVal = fromMaybe defVal <$> lookupEnv envVar
+
+
+-- | Similar to 'getEnv', but read in a value with 'read'.
+--
+-- Throws an exception if the environment variable is set, but the value can't be 'read'.
+getFromEnv ::
+    Read a =>
+    -- | Environment variable to lookup
+    String ->
+    -- | Default value to use if the environment variable is not set.
+    a ->
+    IO a
+getFromEnv envVar defVal = do
+    maybeRes <- lookupEnv envVar
+    case maybeRes of
+        Nothing -> pure defVal
+        Just strRes -> do
+            case readMay strRes of
+                Nothing ->
+                    error $ "Can't read environment variable " <> envVar <> " value: " <> strRes
+                Just res -> pure res
+
+
+main :: IO ()
+main = do
+  hostname <- getEnv "CQG_WEBSOCKETS_HOSTNAME" "democmsapi.cqg.com"
+  port <- getFromEnv "CQG_WEBSOCKETS_PORT" 443
+  path <- getEnv "CQG_WEBSOCKETS_PATH" "/"
+  runSecureClient hostname port path app
+
+app :: IO ()
+app = undefined

cqg-cms-api-client/cqg-cms-api-client.cabal

@@ -30,4 +30,21 @@ library
   build-depends:
       base >=4.7 && <5
     , cqg-cms-api-proto
+    , websockets
+    , wuss
+  default-language: Haskell2010
+
+executable cqg-cms-example
+  main-is: Main.hs
+  other-modules:
+      Paths_cqg_cms_api_client
+  hs-source-dirs:
+      app/cqg-cms-example
+  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -Wno-unused-do-bind -Wunused-packages -funbox-strict-fields -fwrite-ide-info -threaded -rtsopts -with-rtsopts=-N
+  build-depends:
+      base >=4.7 && <5
+    , cqg-cms-api-client
+    , cqg-cms-api-proto
+    , websockets
+    , wuss
   default-language: Haskell2010

cqg-cms-api-client/package.yaml

@@ -1,41 +1,53 @@
-name:                "cqg-cms-api-client"
-version:             "0.1.0.0"
-maintainer:          "Bitnomial <[email protected]>"
-license:             "AllRightsReserved"
-author:              "Bitnomial"
-copyright:           "2024 Bitnomial, Inc"
+name: "cqg-cms-api-client"
+version: "0.1.0.0"
+maintainer: "Bitnomial <[email protected]>"
+license: "AllRightsReserved"
+author: "Bitnomial"
+copyright: "2024 Bitnomial, Inc"
 
 extra-source-files:
   - README.md
   - CHANGELOG.md
-  - proto/**/*.proto
 
-synopsis:            "CQG CMS API websocket client"
-category:            "Web"
+synopsis: "CQG CMS API websocket client"
+category: "Web"
 
 # To avoid duplicated efforts in documentation and dealing with the
 # complications of embedding Haddock markup inside cabal files, it is
 # common to point users to the README.md file.
-description:         "Please see the README on GitHub at <https://github.com/bitnomial/cqg-api-client/cqg-cms-api-client#readme>"
+description: "Please see the README on GitHub at <https://github.com/bitnomial/cqg-api-client/cqg-cms-api-client#readme>"
 
 dependencies:
   - base >= 4.7 && < 5
   - cqg-cms-api-proto
+  - websockets
+  - wuss
 
 ghc-options:
-  - -Wall
-  - -Wcompat
-  - -Widentities
-  - -Wincomplete-record-updates
-  - -Wincomplete-uni-patterns
-  - -Wmissing-export-lists
-  - -Wmissing-home-modules
-  - -Wpartial-fields
-  - -Wredundant-constraints
-  - -Wno-unused-do-bind
-  - -Wunused-packages
-  - -funbox-strict-fields
-  - -fwrite-ide-info
+  - "-Wall"
+  - "-Wcompat"
+  - "-Widentities"
+  - "-Wincomplete-record-updates"
+  - "-Wincomplete-uni-patterns"
+  - "-Wmissing-export-lists"
+  - "-Wmissing-home-modules"
+  - "-Wpartial-fields"
+  - "-Wredundant-constraints"
+  - "-Wno-unused-do-bind"
+  - "-Wunused-packages"
+  - "-funbox-strict-fields"
+  - "-fwrite-ide-info"
 
 library:
   source-dirs: src
+
+executables:
+  cqg-cms-example:
+    main: "Main.hs"
+    source-dirs: "app/cqg-cms-example"
+    ghc-options:
+      - "-threaded"
+      - "-rtsopts"
+      - "-with-rtsopts=-N"
+    dependencies:
+      - cqg-cms-api-client