- removeLinksFrom () {
- for f in `ls -1 "$MY_DIRECTORY/$1"`
- do
- qf="$1/$f"
- # Sanity check that it is a link like we expect
- l=`readlink "$qf" | grep GHC.framework/Versions`
- if [ "$l" != "" ]
- then
- rm -f "$qf"
- fi
- done
- }
-
- removeLinksFrom /usr/bin
- removeLinksFrom /usr/share/man/man1
- removeLinksFrom /usr/share/doc
-fi
+removeLinksFrom /usr/bin
+removeLinksFrom /usr/share/man/man1
+removeLinksFrom /usr/share/doc