blob: a580d23b68325b735e3a43a33a03612009e9f3e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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"
|
