Use cradleTempDir instead of getTemporaryDirectory in HMG
This commit is contained in:
parent
de5ff87f19
commit
67102c92b8
@ -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}
|
||||||
|
|
||||||
----------------------------------------------------------------
|
----------------------------------------------------------------
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user