runghcに-eオプションを無理矢理付ける

上のエントリとまったく同じノリ。なので引数も同じ問題点を抱えてる。

$ function runghci { if [ $# -ge 1 ] && [ $1 == '-e' ]; then echo $2>$$.hs;shift;shift;runghc $$.hs $*;rm $$.hs;else runghc $@;fi;  }
$ runghci -e 'import System;main=do{a<-getArgs;putStrLn $ unwords a}' "aaa   bbb"   ccc 
aaa bbb ccc