ghc pretty wrapper for easy compile on sandbox (under MITL, author keizo)

ghr.go

package main

import (
	"flag"
	"fmt"
	"os"
	"os/exec"
)

func main() {
	ghcf := "-package-db "
	flag.Parse()

	dir := ".cabal-sandbox/"

	hostArchEnv := os.Getenv("GOHOSTARCH")
	if hostArchEnv == "" {
	    hostArchEnv = "x86_64"
	}
	hostOsEnv := os.Getenv("GOHOSTOS")
	if hostOsEnv == "" {
	    hostOsEnv = "linux"
	}


	if hostArchEnv == "amd64" {
		hostArchEnv = "x86_64"
	}
	opt := ghcf + dir + hostArchEnv + "-" + hostOsEnv + "-" + "ghc-" + "7.8.4" + "-package.conf.d"
	fmt.Println(opt)

	if flag.NArg() == 0   {
	    r,err  := exec.Command("ghc","--help").Output()
	    if err != nil {
		fmt.Println(err)
		return
	    }
	    fmt.Println(string(r))


	    return
	}

	if _, err := os.Stat("./cabal-sandbox"); os.IsExist(err) {

		r, err := exec.Command("ghc", opt, flag.Arg(0)).Output()
		if err != nil {
		    fmt.Println(err)
		    return
		}
		fmt.Print( string(r) )

	} else {
		r,err := exec.Command("ghc", flag.Arg(0)).Output()
		if err != nil {
		    fmt.Println(err)
		    return
		}
		fmt.Print( string(r) )

	}
	return
}