Require versions file as JSON in index.js

Author: th-awake

dist/index.js

@@ -1,5 +1,6 @@
 "use strict";
 
 var Main = require("./output/index");
+var versions = require("./dist/versions.json");
 
-Main.main();
+Main.main(versions)();

dist/update.js

@@ -2,16 +2,17 @@ module Main where
 
 import Prelude
 
+import Data.Argonaut.Core (Json)
 import Data.Foldable (traverse_)
 import Effect (Effect)
 import Effect.Aff (launchAff_)
 import Setup.BuildPlan (constructBuildPlan)
 import Setup.Download (download)
 import Setup.UpdateVersions (updateVersions)
 
-main :: Effect Unit
-main = do 
-  plan <- constructBuildPlan 
+main :: Json -> Effect Unit
+main json = do 
+  plan <- constructBuildPlan json
   launchAff_ $ traverse_ download plan
 
 update :: Effect Unit

index.js

@@ -3,6 +3,7 @@ module Setup.BuildPlan (constructBuildPlan, BuildPlan) where
 import Prelude
 
 import Actions.Core as Core
+import Data.Argonaut.Core (Json)
 import Data.Argonaut.Decode (decodeJson, printJsonDecodeError, (.:))
 import Data.Array as Array
 import Data.Bifunctor (bimap, lmap)
@@ -18,16 +19,15 @@ import Setup.Data.Key (Key)
 import Setup.Data.Key as Key
 import Setup.Data.Tool (Tool, required)
 import Setup.Data.Tool as Tool
-import Setup.Data.VersionsFile (readVersionsFile)
 import Text.Parsing.Parser (parseErrorMessage)
 import Text.Parsing.Parser as ParseError
 
 -- | The list of tools that should be downloaded and cached by the action
 type BuildPlan = Array { tool :: Tool, version :: Version }
 
 -- | Construct the list of tools that sholud be downloaded and cached by the action
-constructBuildPlan :: Effect BuildPlan
-constructBuildPlan = map Array.catMaybes $ traverse resolve Tool.allTools
+constructBuildPlan :: Json -> Effect BuildPlan
+constructBuildPlan json = map Array.catMaybes $ traverse (resolve json) Tool.allTools
 
 -- | The parsed value of an input field that specifies a version
 data VersionField = Latest | Exact Version
@@ -42,8 +42,8 @@ getVersionField = map (map parse) <<< Core.getInput
 
 -- | Resolve the exact version to provide for a tool in the environment, based
 -- | on the action.yml file.
-resolve :: Tool -> Effect (Maybe { tool :: Tool, version :: Version })
-resolve tool = do
+resolve :: Json -> Tool -> Effect (Maybe { tool :: Tool, version :: Version })
+resolve versionsContents tool = do
   let key = Key.fromTool tool
   getVersionField key >>= case _ of
     Nothing | required tool -> throwError $ error "No input received for required key."
@@ -63,10 +63,9 @@ resolve tool = do
 
     Right Latest -> do
       Core.info $ fold [ "Fetching latest tag for ", Tool.name tool ]
-      json <- readVersionsFile
 
       let 
-        version = lmap printJsonDecodeError $ (_ .: Tool.name tool) =<< decodeJson json
+        version = lmap printJsonDecodeError $ (_ .: Tool.name tool) =<< decodeJson versionsContents
         parse = lmap parseErrorMessage <<< Version.parseVersion 
 
       case parse =<< version of

src/Main.purs

@@ -2,27 +2,13 @@ module Setup.Data.VersionsFile where
 
 import Prelude
 
-import Control.Monad.Error.Class (throwError)
 import Data.Argonaut.Core (Json, stringify)
-import Data.Argonaut.Decode (printJsonDecodeError)
-import Data.Argonaut.Decode as Json
-import Data.Either (Either(..))
 import Effect (Effect)
-import Effect.Exception (error)
 import Node.Encoding (Encoding(..))
-import Node.FS.Sync (readTextFile, writeTextFile)
+import Node.FS.Sync (writeTextFile)
 import Node.Path (FilePath)
 
 path = "./dist/versions.json" :: FilePath
 
 writeVersionsFile :: Json -> Effect Unit
-writeVersionsFile = writeTextFile UTF8 path <<< stringify
-
-readVersionsFile :: Effect Json
-readVersionsFile = do 
-  str <- readTextFile UTF8 path
-  case Json.parseJson str of
-    Left e ->
-      throwError $ error $ printJsonDecodeError e
-    Right v ->
-      pure v
+writeVersionsFile = writeTextFile UTF8 path <<< stringify