#!/bin/bash

args="-r Todo"

graphmod $args "$@"         \
	  -i . -i Presence  \
	  Presence/main.hs  \
 | awk 'BEGIN{n=1;}
	!/label="Main"/{print;}
	/label="Main"/{if(n==1) print;n=n+1;}' \
   | sed '2isize="13,8!"; ratio=fill;' \
 > modules.dot

fgnode="$(sed -n '/label="FGConsole"/{s#\(.*\)\[.*#\1#; p}' modules.dot)"

cat modules.dot | sed '3'i$fgnode'->monitortty;\
monitortty[label="monitortty.c"];' | dot -Tsvg > modules.svg