Use nix to build linux binaries

Author: avh4

Shakefile/build-elm-format.cabal

@@ -12,6 +12,7 @@ executable build-elm-format
       Shakefiles.ElmFormat.IntegrationTests
       Shakefiles.Extra
       Shakefiles.Haskell
+      Shakefiles.NestedCheckout
       Shakefiles.NixBuild
       Shakefiles.Platform
       Shakefiles.Shellcheck

Shakefile/src/Main.hs

@@ -13,6 +13,7 @@ import qualified Shakefiles.Dependencies
 import qualified Shakefiles.Signature
 import Shakefiles.Extra
 import qualified Shakefiles.NixBuild
+import qualified Shakefiles.NestedCheckout
 
 
 main :: IO ()
@@ -46,6 +47,9 @@ rules = do
 
     phony "build" $ need [ "elm-format" ]
     phony "elm-format" $ need [ elmFormat ]
+    phony "generated" $ need
+        [ "generated/Build_elm_format.hs"
+        ]
     phony "unit-tests" $ need
         [ "_build/cabal/elm-format-lib/test.ok"
         , "_build/cabal/elm-format-test-lib/test.ok"
@@ -135,4 +139,6 @@ rules = do
 
     Shakefiles.ElmFormat.IntegrationTests.rules gitSha elmFormat
 
+    Shakefiles.NestedCheckout.rules
+
     Shakefiles.Shellcheck.rules shellcheck

Shakefile/src/Shakefiles/Haskell.hs

@@ -108,7 +108,10 @@ executable target projectName gitDescribe =
                 Shakefiles.Platform.all
 
         let buildInDocker =
+                []
+        let buildViaNix =
                 [ Shakefiles.Platform.LinuxX86
+                , Shakefiles.Platform.LinuxAarch64
                 ]
         let buildOnCi =
                 [ Shakefiles.Platform.Windows
@@ -134,6 +137,17 @@ executable target projectName gitDescribe =
                 need [ binDir </> binFile ]
                 cmd_ "tar" "zcvf" out "-C" binDir binFile
 
+        forEach buildViaNix $ \target -> do
+            let zipExt = Shakefiles.Platform.zipFormatFor target
+
+            ("publish" </> "*" </> projectName ++ "-*-" ++ show target <.> zipExt) %> \out -> do
+                let tag = takeDirectory1 $ dropDirectory1 out
+                StdoutTrim sha <- cmd "git" "rev-list" "-n1" ("tags/" ++ tag)
+                let binDir = "_build" </> "nix-build" </> "from-git" </> sha </> "out" </> "default" </> "dist." <> show target </> "bin"
+                let binFile = projectName ++ Shakefiles.Platform.binExt target
+                need [ binDir </> binFile ]
+                cmd_ "tar" "zcvf" out "-C" binDir binFile
+
         forEach buildOnCi $ \target -> do
             let ciArchiveLabel = Shakefiles.Platform.ciArchiveLabel target
             let zipExt = Shakefiles.Platform.zipFormatFor target

Shakefile/src/Shakefiles/NestedCheckout.hs

@@ -0,0 +1,18 @@
+module Shakefiles.NestedCheckout where
+
+import Development.Shake
+import Development.Shake.FilePath
+import qualified System.Directory
+
+rules :: Rules ()
+rules = do
+    "_build/git/checkout/*.ok" %> \out -> do
+        let cloneDir = dropExtension out
+        let sha = dropDirectory1 $ dropDirectory1 $ dropDirectory1 cloneDir
+        exists <- liftIO $ System.Directory.doesDirectoryExist cloneDir
+        if exists
+            then return ()
+            else cmd_ "git" "clone" "--local" "." cloneDir
+        cmd_ (Cwd cloneDir) "git" "reset" "--hard" sha
+        cmd_ (Cwd cloneDir) "./dev/build.sh" "generated"
+        writeFileChanged out sha

Shakefile/src/Shakefiles/NixBuild.hs

@@ -2,6 +2,7 @@ module Shakefiles.NixBuild where
 
 import Development.Shake
 import Development.Shake.FilePath
+import qualified System.Directory
 
 rules :: Rules ()
 rules = do
@@ -26,3 +27,12 @@ rules = do
 
         cmd_ "nix-build" "-A" attr "-o" gcroot
         copyFileChanged (gcroot </> foldl (</>) "" rest) out
+
+    "_build/nix-build/from-git/*/out/default/*/bin/elm-format" %> \out -> do
+        let (b1:b2:b3:sha:_:_:attr:rest) = splitDirectories out
+        gcroot <- liftIO $ System.Directory.makeAbsolute (b1 </> b2 </> b3 </> sha </> "gcroots/default" </> attr)
+
+        let checkoutDir = "_build/git/checkout" </> sha
+        need [ checkoutDir <.> "ok" ]
+        cmd_ (Cwd checkoutDir) "nix-build" "-A" attr "-o" gcroot
+        copyFileChanged (gcroot </> foldl (</>) "" rest) out