Cleanup

Author: ajuggler

app/ZkPass/Api/SaveScriptsRef.hs

@@ -12,17 +12,17 @@ import           System.FilePath      ((</>))
 import           ZkPass.Api.Context
 
 
--- | Setup input parameters.
+-- | Input with scripts' reference TxId.
 data SaveRefInput = SaveRefInput { sriTxId :: !String }
   deriving stock (Show, Generic)
   deriving anyclass FromJSON
 
--- | Setup response
+-- | Boolean response.
 data SaveRefResponse = SaveRefResponse { srSaved :: !Bool }
   deriving stock (Show, Generic)
   deriving anyclass ToJSON
 
--- | Handle to construct setup response.
+-- | Handle to save scripts' reference TxId.
 handleSaveRef :: FilePath -> SaveRefInput -> IO SaveRefResponse
 handleSaveRef path SaveRefInput{..} = do
   let setupFile = path </> "setup-params.json"

app/ZkPass/Api/Setup.hs

@@ -47,9 +47,9 @@ handleSetup ctx path SetupInput{..} = do
       providers = ctxProviders ctx
       setupFile = path </> "setup-params.json"
 
-  setupFileFlag <- doesFileExist setupFile
+  setupFileExists <- doesFileExist setupFile
 
-  if setupFileFlag
+  if setupFileExists
     then return $ SetupResponse Nothing
     else do
       x  <- generate arbitrary