summaryrefslogtreecommitdiff
path: root/com/simatime/buildHaskellApp.nix
blob: e9edb0a58b1c9d02fe25daf78b2e59213dfd274e (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
91
92
/*

A function for building a Haskell Miso app.

*/

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 stdenv.mkDerivation {
  name = name;
  version = "0";
  src = ../../.; # this is the git root
  nativeBuildInputs = [
    ghc ghcjs guile bash
  ];
  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";
}