diff --git a/servant-purescript.cabal b/servant-purescript.cabal
--- a/servant-purescript.cabal
+++ b/servant-purescript.cabal
@@ -1,5 +1,5 @@
 name:                servant-purescript
-version:             0.8.0.0
+version:             0.8.0.1
 synopsis:            Generate PureScript accessor functions for you servant API
 description:         Please see README.md
 homepage:            https://github.com/eskimor/servant-purescript#readme
diff --git a/src/Servant/PureScript/CodeGen.hs b/src/Servant/PureScript/CodeGen.hs
--- a/src/Servant/PureScript/CodeGen.hs
+++ b/src/Servant/PureScript/CodeGen.hs
@@ -68,7 +68,7 @@
 genFunction :: [PSParam] -> Req PSType -> Doc
 genFunction allRParams req = let
     rParamsSet = Set.fromList allRParams
-    fnName = req ^. reqFuncName ^. camelCaseL
+    fnName = req ^. reqFuncName ^. jsCamelCaseL
     allParamsList = baseURLParam : reqToParams req
     allParams = Set.fromList allParamsList
     fnParams = filter (not . flip Set.member rParamsSet) allParamsList -- Use list not set, as we don't want to change order of parameters
@@ -124,8 +124,8 @@
               Just _  -> ", content =" <+> "toNullable <<< Just <<< stringify <<< encodeJson $ reqBody" </> "}"
       )
       </> "affResp <- affjax affReq"
-      </> "getResult affReq decodeJson affResp" <> line
-    )
+      </> "getResult affReq decodeJson affResp"
+    ) <> line
 
 genBuildURL :: Url PSType -> Doc
 genBuildURL url = psVar baseURLId <+> "<>"
diff --git a/src/Servant/PureScript/Internal.hs b/src/Servant/PureScript/Internal.hs
--- a/src/Servant/PureScript/Internal.hs
+++ b/src/Servant/PureScript/Internal.hs
@@ -28,6 +28,7 @@
 
 
 import           Servant.Foreign
+import           Servant.Foreign.Internal
 
 
 -- | Our language type is Paramized, so you can choose a custom 'TypeBridge' for your translation, by
@@ -174,3 +175,12 @@
   , _typeName = "a"
   , _typeParameters = []
   }
+
+-- use servant-foreign's camelCaseL legacy version
+jsCamelCaseL :: Getter FunctionName Text
+jsCamelCaseL = _FunctionName . to (convert . map (T.replace "-" ""))
+  where
+    convert []     = ""
+    convert (p:ps) = mconcat $ p : map capitalize ps
+    capitalize ""   = ""
+    capitalize name = toUpper (T.head name) `T.cons` T.tail name
diff --git a/src/Servant/PureScript/MakeRequests.hs b/src/Servant/PureScript/MakeRequests.hs
--- a/src/Servant/PureScript/MakeRequests.hs
+++ b/src/Servant/PureScript/MakeRequests.hs
@@ -74,7 +74,7 @@
 genFunction :: [PSParam] -> Req PSType -> Doc
 genFunction allRParams req = let
     rParamsSet = Set.fromList allRParams
-    fnName = req ^. reqFuncName ^. camelCaseL
+    fnName = req ^. reqFuncName ^. jsCamelCaseL
     allParamsList = baseURLParam : reqToParams req
     allParams = Set.fromList allParamsList
     fnParams = filter (not . flip Set.member rParamsSet) allParamsList -- Use list not set, as we don't want to change order of parameters
diff --git a/src/Servant/PureScript/Subscriber.hs b/src/Servant/PureScript/Subscriber.hs
--- a/src/Servant/PureScript/Subscriber.hs
+++ b/src/Servant/PureScript/Subscriber.hs
@@ -57,7 +57,7 @@
 genFunction :: [PSParam] -> Req PSType -> Doc
 genFunction allRParams req = let
     rParamsSet = Set.fromList allRParams
-    fnName = req ^. reqFuncName ^. camelCaseL
+    fnName = req ^. reqFuncName ^. jsCamelCaseL
     responseType = case req ^. reqReturnType of
                      Nothing -> psUnit
                      Just t  -> t