Use cradleTempDir instead of getTemporaryDirectory in HMG

This commit is contained in:
Nikolay Yakimov 2015-07-02 13:25:42 +03:00
parent de5ff87f19
commit 67102c92b8

View File

@ -126,7 +126,7 @@ errBagToStrList env errs = let
dflags = hsc_dflags env dflags = hsc_dflags env
pu = icPrintUnqual dflags (hsc_IC env) pu = icPrintUnqual dflags (hsc_IC env)
st = mkUserStyle pu AllTheWay st = mkUserStyle pu AllTheWay
in runReader (errsToStr (bagToList errs)) ReaderState{rsDynFlags=dflags, rsPprStyle=st} in runReader (errsToStr (bagToList errs)) GmPprEnv{rsDynFlags=dflags, rsPprStyle=st}
---------------------------------------------------------------- ----------------------------------------------------------------