Automatically run Haskell unit tests inside docker upon change on ./src/* files

execute.sh

#!/bin/bash

pushd pangram
stack test --allow-different-user --install-ghc

hotload.sh

#!/bin/bash

inotifywait -q -m -e close_write -r pangram/src/  | while read -r path event filename;
do
    clear
	echo -e "\n\n\033[1;7;37mExecuting ./execute.sh because $path$filename was $event\033[0;1;0m"
    ./execute.sh
done;

init.sh

#!/bin/bash

./install_dependencies.sh
./update_yaml.py
./execute.sh
./hotload.sh

install_dependencies.sh

#!/bin/bash

apt update && apt install -y inotify-tools python3-pip
pip3 install pyyaml

run.sh

#!/bin/bash

docker run -it --rm -v "${PWD}:/app" -w /app haskell ./init.sh

update_yaml.py

#!/usr/bin/python3
from yaml import dump
from yaml import load
from yaml import YAMLError

try:
    from yaml import CLoader as Loader
    from yaml import CDumper as Dumper
except ImportError:
    from yaml import Loader
    from yaml import Dumper

import pprint

with open("pangram/package.yaml", "r") as stream:
    try:
        data = load(stream, Loader=Loader)
    except YAMLError as exc:
        print(exc)


def append_if_not_present(m_list, item):
    """Append item if not present in m_list"""

    if m_list is None:
        m_list = [item]

    else:
        if item not in m_list:
            m_list.append(item)

    return m_list


data["library"]["dependencies"] = append_if_not_present(
    data["library"]["dependencies"],
    "containers",
)

data["tests"]["test"]["dependencies"] = append_if_not_present(
    data["tests"]["test"]["dependencies"],
    "containers",
)
pprint.pprint(data)

with open("pangram/package.yaml", "w") as stream:
    try:
        output = dump(data, Dumper=Dumper)
        stream.write(output)
    except YAMLError as exc:
        print(exc)