From 815755861152fb0e3dfdd9b6321f8f74e7bf8515 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 17 Jun 2022 23:01:24 +0200
Subject: generate javascript functions

(this is commented out in the cabal file, since unfortunately the
servant-js package is broken in nixpkgs and therefore otherwise breaks
the nix build process … but it can be used "by hand")
---
 app/GenJS.hs | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 app/GenJS.hs

(limited to 'app/GenJS.hs')

diff --git a/app/GenJS.hs b/app/GenJS.hs
new file mode 100644
index 0000000..a580d23
--- /dev/null
+++ b/app/GenJS.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE TypeApplications #-}
+
+-- | Just to generate javascript functions so I won't have too much
+-- bother with it
+module Main where
+
+import Universum
+import Servant.JS
+import Servant.JS.Vanilla
+import System.Environment (getArgs)
+
+import API
+
+apiJS :: Text -> Text
+apiJS url = jsForAPI (Proxy @API) (vanillaJSWith options)
+  where options = defCommonGeneratorOptions { urlPrefix = url }
+
+main :: IO ()
+main = do
+  args <- getArgs
+  case args of
+    [] -> putText (apiJS "")
+    [prefix] -> putText (apiJS (toText prefix))
+    _ -> error "don't understand these options"
-- 
cgit v1.2.3