diff --git a/src/GitHub/Actions/ToolCache.purs b/src/GitHub/Actions/ToolCache.purs index b7c0414..4170a01 100644 --- a/src/GitHub/Actions/ToolCache.purs +++ b/src/GitHub/Actions/ToolCache.purs @@ -186,7 +186,7 @@ extractXar = Nothing, Nothing -> runEffectFn1 extractXar1Impl file Just d, Nothing -> runEffectFn2 extractXar2Impl file d Nothing, Just f -> runEffectFn2 extractXar2Impl2 file f - Just d, Just f -> runEffectFn3 extractXar3Impl file d f + Just d, Just f -> runEffectFn3 extractXar3Impl file d f foreign import extractZip1Impl :: EffectFn1 FilePath (Promise FilePath) @@ -230,7 +230,7 @@ type CacheDirArgs = } -- | Caches a directory and installs it into the tool cacheDir -cacheDir' :: { sourceDir :: String, tool :: String , version :: String } -> ExceptT Error Aff FilePath +cacheDir' :: { sourceDir :: String, tool :: String, version :: String } -> ExceptT Error Aff FilePath cacheDir' { sourceDir, tool, version } = cacheDir { sourceDir, tool, version, arch: Nothing } -- | Caches a directory and installs it into the tool cacheDir diff --git a/test/Test/Main.purs b/test/Test/Main.purs index 965872a..fb84b05 100644 --- a/test/Test/Main.purs +++ b/test/Test/Main.purs @@ -58,7 +58,7 @@ main = do _ <- Cache.restoreCache' { paths: [], primaryKey: "restorecache" } _ <- Cache.restoreCache { paths: [], primaryKey: "restorecache", restoreKeys: Nothing, options: Nothing } _ <- Cache.restoreCache { paths: [], primaryKey: "restorecache", restoreKeys: Just [ "a" ], options: Nothing } - Cache.restoreCache { paths: [], primaryKey: "restorecaceh", restoreKeys: Just [ "a" ], options: Just (Cache.defaultDownloadOptions { useAzureSdk = Just true, downloadConcurrency = Just true, timeoutInMs = Just 10.0 })} + Cache.restoreCache { paths: [], primaryKey: "restorecaceh", restoreKeys: Just [ "a" ], options: Just (Cache.defaultDownloadOptions { useAzureSdk = Just true, downloadConcurrency = Just true, timeoutInMs = Just 10.0 }) } -- Tests for GitHub.Actions.Exec let @@ -68,7 +68,7 @@ main = do runAff_ execCb $ runExceptT do _ <- Exec.exec' "pwd" _ <- Exec.exec { command: "pwd", args: Just [ "-L" ], options: Nothing } - Exec.exec { command: "pwd", args: Just [ "-L" ], options: Just (Exec.defaultExecOptions { delay = Just 10.0 })} + Exec.exec { command: "pwd", args: Just [ "-L" ], options: Just (Exec.defaultExecOptions { delay = Just 10.0 }) } -- Tests for GitHub.Actions.IO let @@ -78,7 +78,7 @@ main = do runAff_ ioCb $ runExceptT do _ <- Exec.exec' "touch test.txt" _ <- IO.cp' { source: "test.txt", dest: "test1.txt" } - _ <- IO.cp { source: "test1.txt", dest: "test2.txt", options: Just (IO.defaultCopyOptions { force = Just true })} + _ <- IO.cp { source: "test1.txt", dest: "test2.txt", options: Just (IO.defaultCopyOptions { force = Just true }) } _ <- IO.mv' { source: "test2.txt", dest: "test3.txt" } _ <- IO.mv { source: "test3.txt", dest: "test4.txt", options: Just (IO.defaultMoveOptions { force = Just true }) } _ <- IO.rmRF { inputPath: "test4.txt" }