smu smucode

tl;dr

Types	RTS Opts	Compile time	Artifacts size
Yes	-A512M -H128M -n8m	3m7s	91M
Yes	-s	6m14s	93M
No	-A512M -H128M -n8m	1m22s	13M

For the last one I removed all type declarations apart from our main function. I also had to remove a few files as I kept running into an issue with the type inference algorithm of elm-make: Unable to generalize a type variable, it is unranked.

	const fs = require("fs");

	const rootPath = "./app/routes";

	function migrate(path) {
	fs.readdirSync(path).forEach((file) => {
	const filePath = `${path}/${file}`;
	const stat = fs.statSync(filePath);
	if (stat.isDirectory()) {
	migrate(filePath);

	const pathToElmStuff = './packages/elm/elm-stuff'
	const pathToMain = './packages/elm/src/elm/Main.elm'
	const npmCmdToStartDevServer = 'start:frontend'

	const { spawn, execSync } = require('child_process')
	const proc = spawn('npm', ['run', npmCmdToStartDevServer])
	const log = msg => {
	const boom = Array.apply(null, { length: 5 })
	.map(() => '💥')
	.join('')

	const { Pact, Matchers } = require('@pact-foundation/pact')
	const path = require('path')
	const R = require('ramda')

	const { eachLike, term, somethingLike: like } = Matchers
	const providerPort = 1234

	//eslint-disable-next-line fp/no-mutation
	module.exports.encodeQuery = R.pipe(JSON.stringify, encodeURIComponent)

	function fish_prompt

	if [ $status = 0 ]
	set st (set_color -o 27AE60)
	else
	set st (set_color -o red)
	end

	#if not set -q -g __fish_smu_functions_defined
	# set -g __fish_smu_functions_defined

	require("nokogiri")
	require("./url_fetcher")

	class HtmlParser
	def parse url
	html = UrlFetcher.new.fetch url
	Nokogiri::HTML(html).css('a').map{\|e\| parse_url(url, get_href(e)) }.compact
	end

	def get_href e

	class Presentation
	attr_accessor :title, :presenter

	def initialize title, presenter
	@title = title
	@presenter = presenter
	end

	end

	class Presentation

	attr_accessor :title, :author, :scores

	def initialize title, author
	@title = title
	@author = author
	@scores = []
	end

	class Array

	def xeach
	i = 0
	while i < self.size
	yield self[i]
	i += 1
	end
	end