Make example app a little easier to run

Author: thomasjm

app/Main.hs

@@ -9,8 +9,10 @@ import Data.Aeson as A
 import Data.Aeson.TH as A hiding (Options)
 import Data.Aeson.TypeScript.TH
 import Data.Proxy
+import Data.String.Interpolate
 import Servant.API
 import Servant.TypeScript
+import System.IO.Temp
 
 
 data User = User {
@@ -24,4 +26,8 @@ type UserAPI = "users" :> Get '[JSON] [User]
           :<|> "albert" :> Get '[JSON] User
           :<|> "isaac" :> Get '[JSON] User
 
-main = writeTypeScriptLibrary (Proxy @UserAPI) "/tmp/test"
+main = do
+  tmpDir <- getCanonicalTemporaryDirectory
+  dir <- createTempDirectory tmpDir "servant-typescript-example"
+  writeTypeScriptLibrary (Proxy @UserAPI) dir
+  putStrLn [i|Wrote TypeScript library to: #{dir}|]

package.yaml

@@ -61,6 +61,7 @@ executables:
     - -with-rtsopts=-N
     dependencies:
     - servant-typescript
+    - temporary
 
 tests:
   servant-typescript-test:

servant-typescript.cabal

@@ -1,6 +1,6 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.34.4.
+-- This file has been generated from package.yaml by hpack version 0.37.0.
 --
 -- see: https://github.com/sol/hpack
 
@@ -94,6 +94,7 @@ executable servant-typescript-exe
     , servant-foreign
     , servant-typescript
     , string-interpolate
+    , temporary
     , text
   default-language: Haskell2010