fixHaskell.sh

#!/usr/bin/env bash

mkdir -p $1

cmd="ghc $GHCFLAGS -j -O1 --make ./FixLits.hs"

echo $cmd

$cmd

echo "Fixing Literals"
for file in $(find $2 -maxdepth 1 -name "*.hs")
do
  baseval=`basename $file`
  ./FixLits $file
  mv $file $1
  echo "$file fixed."
done

echo "Adding missing imports"

unameOut="$(uname -s)"
case "${unameOut}" in
  Darwin*) SED=gsed;;
  *)       SED=sed
esac

for file in $(grep -l "CustomExtract" $1/*.hs)
do
  grep -q "import qualified CustomExtract" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified CustomExtract\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Char" $1/*.hs)
do
  grep -q "import qualified Data\.Char" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Char\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Bits" $1/*.hs)
do
  grep -q "import qualified Data\.Bits" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Bits\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.List" $1/*.hs)
do
  grep -q "import qualified Data\.List" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.List\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.BitVector" $1/*.hs)
do
  grep -q "import qualified Data\.BitVector" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.BitVector\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Vector" $1/*.hs)
do
  grep -q "import qualified Data\.Vector" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Vector\nimport/}' $file
  fi
done

for file in $(grep -l "System\.Exit" $1/*.hs)
do
  grep -q "import qualified System\.Exit" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified System.Exit\nimport/}' $file
  fi
done

for file in $(grep -l "System\.IO" $1/*.hs)
do
  grep -q "import qualified System\.IO" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified System.IO\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Map\.Strict" $1/*.hs)
do
  grep -q "import qualified Data\.Map\.Strict" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Map.Strict\nimport/}' $file
  fi
done

for file in $(grep -l "ParseExtract" $1/*.hs)
do
  grep -q "import qualified ParseExtract" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified ParseExtract\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Array.IO" $1/*.hs)
do
  grep -q "import qualified Data\.Array.IO" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Array.IO\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Array\.MArray" $1/*.hs)
do
  grep -q "import qualified Data\.Array\.MArray" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Array.MArray\nimport/}' $file
  fi
done

for file in $(grep -l "Control\.Monad" $1/*.hs)
do
  grep -q "import qualified Control\.Monad" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Control.Monad\nimport/}' $file
  fi
done

for file in $(grep -l "Control\.Monad\.Primitive" $1/*.hs)
do
  grep -q "import qualified Control\.Monad\.Primitive" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Control.Monad.Primitive\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Vector\.Mutable" $1/*.hs)
do
  grep -q "import qualified Data\.Vector\.Mutable" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Vector.Mutable\nimport/}' $file
  fi
done

for file in $(grep -l "Data\.Vector\.Generic" $1/*.hs)
do
  grep -q "import qualified Data\.Vector\.Generic" $file
  if [ $? -ne 0 ]
  then
    $SED -i -e '0,/^import/{s/^import/import qualified Data.Vector.Generic\nimport/}' $file
  fi
done