summaryrefslogtreecommitdiff
path: root/com/simatime/buildHaskellApp.nix
blob: ff9c74123340334cafeceaaaaaf01cfe10b0fdb6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

nixpkgs:

{
  # the namespace. We can't figure this out with Nix code, but when we port to
  # guix/scheme we should be able to
  name
, nick # a short name, for the executable
, apex # compiled with ghc
, aero # compiled with ghcjs
  # deps get passed to the compilers
, deps

}:

with nixpkgs;

let
  nsToPath = ns: builtins.toString (builtins.replaceStrings ["."] ["/"] ns);
  aeroPath = nsToPath aero;
  apexPath = nsToPath apex;
  basePath = lib.strings.removeSuffix "/Apex" apexPath;

  depsToPackageSet = packageSet: deps:
    map (s: builtins.getAttr s packageSet) deps;

  ghc865_ = pkgs.haskell.packages.ghc865.override (oldAttrs: {
    overrides = with pkgs.haskell.lib; self: super: {
      clay = dontCheck super.clay;
    };
  });

  ghc = ghc865_.ghcWithPackages (hp: depsToPackageSet hp
    (deps.both ++ deps.apex));

  # ghcjs-8.6.0.1
  ghcjs_ = pkgs.haskell.packages.ghcjs.override (oldAttrs: {
    overrides = with pkgs.haskell.lib; self: super: {
      clay = dontCheck super.clay;
      http-types = dontCheck super.http-types;
      tasty-quickcheck = dontCheck super.tasty-quickcheck;
      scientific = dontCheck super.scientific; # takes forever
      servant = dontCheck super.servant;
      comonad = dontCheck super.comonad;
      QuickCheck = dontCheck super.QuickCheck;
    };
  });

  ghcjs = ghcjs_.ghcWithPackages (hp:
    depsToPackageSet hp (deps.both ++ deps.aero));

in {
  env = ghc // ghcjs // guile;
  app = stdenv.mkDerivation {
    name = name;
    version = "0";
    src = ../../.; # this is the git root
    nativeBuildInputs = [
      ghc ghcjs guile
    ];
    strictDeps = true;
    buildPhase = ''
      # capitalize paths for 'ghc --make'
      source .envrc
      guile -e '(com simatime caplinks)' -s ./com/simatime/caplinks.scm .
      #
      mkdir -p $out/{bin,static} ${basePath}
      #
      # compile with ghc
      #
      ${ghc}/bin/ghc -i. --make ${apexPath}.hs -main-is ${apex} \
          -o ${apexPath}
      #
      # compile with ghcjs
      #
      ${ghcjs}/bin/ghcjs -i. --make ${aeroPath}.hs -main-is ${aero} \
          -o ${aeroPath}
      #
      # optimize js output
      #
      ${pkgs.closurecompiler}/bin/closure-compiler \
          --compilation_level ADVANCED_OPTIMIZATIONS \
          --jscomp_off=checkVars \
          --externs=${aeroPath}.jsexe/all.js.externs \
          ${aeroPath}.jsexe/all.js > $out/static/${nick}.js
    '';
    # the install process was handled above
    installPhase = "exit 0";
  };
}