cc.sh

#! /usr/bin/env nix-shell
#! nix-shell -i bash -p nix bash rsync fswatch -I nixpkgs=channel:nixos-19.03

if ["$RNV_INTERNAL" = ""]
then
  nix-shell -I nixpkgs=channel:nixos-19.03 --run "RNV_INTERNAL=true ./cc.sh"
else
  app=$(basename *.cabal .cabal)
  test -e dist || (mkdir dist && mkdir dist/build && mkdir dist/build/$app)
  outpath=dist/build/$app/$app.jsexe

  cabal v1-configure --ghcjs
  while true; do
    printf '\033\143' #clear
    time cabal v1-build $@

    if [ $? -eq 0 ]; then
      # used by ghcjsi repl
      test -f $outpath  && sed -i 's/h$main(h$mainZCZCMainzimain);/module.exports = { h$main: h$main, h$killThread: h$killThread, h$d: h$d, h$baseZCControlziExceptionziBasezinonTermination: h$baseZCControlziExceptionziBasezinonTermination };h$main(h$mainZCZCMainzimain);/g' $outpath/all.js

      sed -i 's/var h$currentThread = null;/originalProcess=process; process=undefined; var h$currentThread=null;/' $outpath/all.js
      sed -i 's/h$main(h$mainZCZCMainzimain);/h$main(h$mainZCZCMainzimain) ; process = originalProcess;/' $outpath/all.js

      sed -i 's/function h$ap_1_0(h$RTS_577)/function h$ap_1_0_deleted(h$RTS_577)/' $outpath/all.js
      sed -i '0,/function h$ghcjsbn_toDouble_b/s/function h$ghcjsbn_toDouble_b/function h$ghcjsbn_toDouble_b_deleted/' $outpath/all.js
      sed -i '0,/function h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e/s/function h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e/function h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e_deleted/' $outpath/all.js
      sed -i '0,/function h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e/s/function h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e/function h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e_deleted/' $outpath/all.js
      sed -i '0,/function h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e/s/function h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e/function h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e_deleted/' $outpath/all.js
      sed -i '0,/function h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e/s/function h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e/function h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e_deleted/' $outpath/all.js

      sed -i 's/use strict//g' $outpath/all.js

      rsync --checksum $outpath/all.js ./rnproject/src/
    fi;

    fswatch -1 -r -i '.*[.]hs$' --event Created --event Updated --event Removed --event Renamed --event MovedFrom --event MovedTo src
  done
fi;