add example http request

3 files changed, 29 insertions, 1 deletions

diff --git a/achat.cabal b/achat.cabal
index 766bf67..448a896 100644
--- a/achat.cabal
+++ b/achat.cabal
@@ -15,6 +15,7 @@ executable achat
     build-depends:
         base,
         clay,
+        ghcjs-base,
         haskell-halogen-core,
         kan-extensions,
         protolude,
diff --git a/app/Main.hs b/app/Main.hs
index 2f0cce9..1b1fa25 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -28,6 +28,7 @@ import Halogen.HTML.Layout.GridBagLayout
 import Halogen.HTML.Properties as HP
 import Halogen.Subscription qualified as HS
 import Halogen.VDom.DOM.Monad
+import JavaScript.Web.XMLHttpRequest
 import Protolude hiding (log)
 import UnliftIO (MonadUnliftIO)
 
@@ -110,7 +111,20 @@ component =
 
     handleAction = \case
       Init ->
-        lift $ log "Initialized"
+        lift $ do
+          log "Initialized"
+          _ <-
+            liftIO $ xhrByteString
+              ( Request
+                  { reqMethod = GET,
+                    reqURI = "http://localhost:8081/api/rest/collection/user",
+                    reqLogin = Nothing,
+                    reqHeaders = [],
+                    reqWithCredentials = False,
+                    reqData = NoData
+                  }
+              )
+          pure ()
       Increment n -> do
         modify (+ n)
         get >>= H.raise
diff --git a/default.nix b/default.nix
index a3ce768..c6cbdbd 100644
--- a/default.nix
+++ b/default.nix
@@ -1,6 +1,19 @@
 { pkgs ? import sources.nixpkgs {
     overlays = [
       (import ./pkgs { inherit (pkgs.haskell) lib; })
+      (self: super: {
+        haskell = super.haskell // {
+          packageOverrides = self.lib.composeManyExtensions
+            [
+              (super.haskell.packageOverrides or (self: super: self))
+              (self: super: {
+                ghcWithPackages = super.ghcWithPackages.override {
+                  installDocumentation = false; # XXX true (default)
+                };
+              })
+            ];
+        };
+      })
     ];
   }
 , sources ? import ./nix/sources.nix