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.9.0.1
+version:             0.9.0.2
 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
@@ -127,10 +127,16 @@
               Nothing -> "}"
               Just _  -> ", content =" <+> "toNullable <<< Just <<< stringify <<< encodeJson $ reqBody" </> "}"
       )
-      </> "affResp <- affjax affReq"
-      </> "let decodeJson = case spOpts_.decodeJson of SPSettingsDecodeJson_ d -> d"
-      </> "getResult affReq decodeJson affResp"
+      </> if shallParseBody (req^.reqReturnType)
+          then "affResp <- affjax affReq"
+           </> "let decodeJson = case spOpts_.decodeJson of SPSettingsDecodeJson_ d -> d"
+           </> "getResult affReq decodeJson affResp"
+          else "_ <- affjax affReq"
+           </> "pure unit"
     ) <> line
+  where
+    shallParseBody Nothing = False
+    shallParseBody (Just t) = t^.typeName /= "Unit"
 
 genBuildURL :: Url PSType -> Doc
 genBuildURL url = psVar baseURLId <+> "<>"