Produce dependencies graph for Haskell project

dependencies.sh

#!/bin/sh

# Produce PNG of module dependencies (requires GraphViz `dot` command)
# John J. Camilleri, 2018

# Configurable options
dotfile="_deps.dot"
imgfile="_deps.png"
searchin="src"

# Start
modules=`find ${searchin} -name "*.hs"`
modnames=""
for file in $modules ; do
  modname=`ack "^module (\\S+)" "$file" --output="\\$1"`
  modnames="${modname} ${modnames}"
done

echo "digraph {" > "$dotfile"
echo "rankdir=\"BT\";" >> "$dotfile"

for file in $modules ; do
  modname=`ack "^module (\\S+)" "$file" --output="\\$1"`
  imports=`ack "^import( qualified)? (\\S+)" "$file" --output="\\$2"`
  for imp in $imports ; do
    if [[ $modnames = *"$imp"* ]]; then
      echo "\"${modname}\" -> \"${imp}\";" >> "$dotfile"
    fi
  done

done

echo "}" >> "$dotfile"
dot "$dotfile" -Tpng > "$imgfile"