diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,11 @@
 # Changelog for servant-typescript
 
 ## Unreleased changes
+
+## 0.1.0.2
+
+* Fix to actually write to the configured directory.
+
+## 0.1.0.1
+
+* Initial release
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -43,17 +43,9 @@
 ```haskell
 instance HasForeign LangTS Text WebSocket where
     type Foreign Text WebSocket = Text
-    foreignFor _lang _pf _ _req = "void"
-
-instance HasForeign LangTS Text WebSocketPending where
-    type Foreign Text WebSocketPending = Text
-    foreignFor _lang _pf _ _req = "void"
-
-instance HasForeign LangTSDecls [TSDeclaration] WebSocketPending where
-    type Foreign [TSDeclaration] WebSocketPending = [TSDeclaration]
-    foreignFor _lang _pf _ _req = []
+    foreignFor _ _ _ _ = "void"
 
 instance HasForeign LangTSDecls [TSDeclaration] WebSocket where
     type Foreign [TSDeclaration] WebSocket = [TSDeclaration]
-    foreignFor _lang _pf _ _req = []
+    foreignFor _ _ _ _ = []
 ```
diff --git a/servant-typescript.cabal b/servant-typescript.cabal
--- a/servant-typescript.cabal
+++ b/servant-typescript.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           servant-typescript
-version:        0.1.0.1
+version:        0.1.0.2
 synopsis:       TypeScript client generation for Servant
 description:    Please see the README on GitHub at <https://github.com/codedownio/servant-typescript>
 category:       Web
diff --git a/src/Servant/TypeScript.hs b/src/Servant/TypeScript.hs
--- a/src/Servant/TypeScript.hs
+++ b/src/Servant/TypeScript.hs
@@ -91,8 +91,8 @@
 -- | Write the TypeScript client library for the given API to the given folder.
 writeTypeScriptLibrary' :: forall api. MainConstraints api => ServantTypeScriptOptions -> Proxy api -> FilePath -> IO ()
 writeTypeScriptLibrary' opts _ rootDir = flip runReaderT opts $ do
-  writeClientTypes (Proxy @api) "/tmp/test"
-  writeClientLibraries (Proxy @api) "/tmp/test"
+  writeClientTypes (Proxy @api) rootDir
+  writeClientLibraries (Proxy @api) rootDir
 
 writeClientTypes :: forall api. (
   HasForeign LangTSDecls [TSDeclaration] api