eu available in build (#15)

* Fetch script for retrieving eu binary.

* Configure build to pull an existing eu binary

* Fix config syntax.

* Try to resolve encoding issue with pipenv

* Move to stretch-based release image.

* Try to fetch eu to /usr/local/bin.

* Build arch / os into package.yaml

* Correct build.eu path

* Fix typo.

* Tweak build.eu

* Fix typo

* Echo eu metadata after build

* Fix typo

* Correct step name

Author: gmorpheme

.circleci/config.yml

@@ -8,6 +8,14 @@ jobs:
     steps:
       - checkout
 
+      - run:
+          name: Make a recent eu binary available to the build
+          command: |
+            cd ci
+            pipenv install
+            pipenv run python fetch.py /usr/local/bin
+            eu --version
+
       - restore_cache:
           keys:
             - cache-{{ checksum "stack.yaml" }}-{{ checksum "package.yaml" }}
@@ -38,6 +46,16 @@ jobs:
             - ~/.stack
           key: cache-{{ checksum "stack.yaml" }}-{{ checksum "package.yaml" }}
 
+      - run:
+          name: Update build / release details in package.yaml
+          command: |
+            export OSTYPE=$(uname)
+            export HOSTTYPE=$(uname -m)
+            eu package=package.yaml ci/build.eu > new-package.yaml
+            mv -f new-package.yaml package.yaml
+            echo --- replaced package.yaml ---
+            cat package.yaml
+
       - run:
           name: Build, run unit tests with coverage
           command: stack build --fast --pedantic --no-terminal --test --coverage
@@ -49,9 +67,13 @@ jobs:
             hlint .
 
       - run:
-          name: Build with no coverage instrumentation
+          name: Build without coverage
           command: stack build --pedantic --no-terminal --ghc-options="-O2"
 
+      - run:
+          name: Check build metadata for generated executable
+          command: stack exec eu -- -e 'eu.build'
+
       - persist_to_workspace:
           root: .stack-work
           paths:

ci/build.eu

@@ -13,31 +13,36 @@
 version: package.version
 	   str.match-with("(\d+)\.(\d+)\.([^.]+)\.([^.]+)")
 	   drop(1)
-	   with-keys([:major, :minor, :revision, :build])
+	   with-keys([:major, :minor, :patch, :build])
 
 build: {
 
   ` "Circle build number"
-  number: io.env lookup-or(:CIRCLE_BUILD_NUM, version.revision)
+  number: io.env lookup-or(:CIRCLE_BUILD_NUM, version.patch)
 
   ` "SHA1 of the repo commit we're building"
   commit: io.env lookup-or(:CIRCLE_SHA1, "working-copy")
 
   ` "URL of build"
   url: io.env lookup-or(:CIRCLE_BUILD_URL, "(none)")
 
+  ` "Architecture of build environment"
+  arch: io.env lookup-alts([:HOSTTYPE, :_system_arch], "unknown")
+
+  ` "Architecture of build environment"
+  os: io.env lookup-alts([:OSTYPE, :_system_name], "unknown")
+
+  ` "Seconds since epoch at eu build time"
+  epoch-time: io.epoch-time
 }
 
 new-version: [version.major,
 	      version.minor,
-	      build.number,
-	      str.of(io.epoch-time)] str.join-on(".")
+	      version.patch,
+	      build.number] str.join-on(".")
 
 ` :main
 main: package {
   version: new-version
-  eu-build: {
-    commit: build.commit
-    url: build.url
-  }
+  eu-build: build
 }

ci/fetch.py

@@ -0,0 +1,47 @@
+#!/usr/bin/env python3
+
+import sys
+from pathlib import Path
+import re
+import os
+import subprocess
+import tarfile
+from github3 import login
+
+def fetch(bindir):
+
+    """ Download the latest binary release for this platform to `bindir`. """
+
+    token = os.environ['GITHUB_API_TOKEN']
+    if not token:
+        raise EnvironmentError("No Github API Token available")
+
+    gh = login(token=token)
+    r = gh.repository("curvelogic", "eucalypt-hs")
+
+    release = r.latest_release()
+    asset = [a for a in release.assets() if "linux" in a.name][0]
+
+    print("Downloading {}".format(asset.name))
+    asset.download()
+
+    print("Extracting {}".format(asset.name))
+    with tarfile.open(asset.name, "r:gz") as tar:
+        files = [f for f in tar if f.isreg()]
+        print(" - extracting {}".format(f.name for f in files))
+        tar.extractall(members = files)
+        print(" - moving to ~/local/bin")
+        for f in files:
+            os.rename(f.name,  bindir / Path(f.name).name)
+    
+def main(args):
+
+    if len(args) > 1:
+        bindir = Path(args[1])
+    else:
+        bindir = Path.home() / "bin"
+
+    fetch(bindir)
+
+if __name__ == '__main__':
+    main(sys.argv)