diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-09-12 14:50:40 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-09-15 23:46:36 -0400 |
| commit | cf7e78a3aef35741d6d296d844b99ec2529c42a3 (patch) | |
| tree | edc940c21f64d324b2df5bb4e29a7922998ce9cd /compiler/GHC/StgToCmm | |
| parent | bd079345f633e01e8d4ff76aef39cb2aa50af6a9 (diff) | |
| download | haskell-cf7e78a3aef35741d6d296d844b99ec2529c42a3.tar.gz | |
Rename GHC.StgToCmm.Con -> GHC.StgToCmm.DataCon
Incredibly, Windows disallows the manipulation of any file matching
Con(\..*)?. The `GHC.StgToCmm.Con` was introduced in the renamings in
447864a9, breaking the Windows build. Work around this by renaming it to
`GHC.StgToCmm.DataCon`
Fixes #17187.
Diffstat (limited to 'compiler/GHC/StgToCmm')
| -rw-r--r-- | compiler/GHC/StgToCmm/Bind.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/StgToCmm/DataCon.hs (renamed from compiler/GHC/StgToCmm/Con.hs) | 4 | ||||
| -rw-r--r-- | compiler/GHC/StgToCmm/Expr.hs | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/compiler/GHC/StgToCmm/Bind.hs b/compiler/GHC/StgToCmm/Bind.hs index bfe9255783..44316cacb0 100644 --- a/compiler/GHC/StgToCmm/Bind.hs +++ b/compiler/GHC/StgToCmm/Bind.hs @@ -18,7 +18,7 @@ import GhcPrelude hiding ((<*>)) import GHC.StgToCmm.Expr import GHC.StgToCmm.Monad import GHC.StgToCmm.Env -import GHC.StgToCmm.Con +import GHC.StgToCmm.DataCon import GHC.StgToCmm.Heap import GHC.StgToCmm.Prof (ldvEnterClosure, enterCostCentreFun, enterCostCentreThunk, initUpdFrameProf) diff --git a/compiler/GHC/StgToCmm/Con.hs b/compiler/GHC/StgToCmm/DataCon.hs index 08508fbecc..c7ad444e41 100644 --- a/compiler/GHC/StgToCmm/Con.hs +++ b/compiler/GHC/StgToCmm/DataCon.hs @@ -11,7 +11,7 @@ -- ----------------------------------------------------------------------------- -module GHC.StgToCmm.Con ( +module GHC.StgToCmm.DataCon ( cgTopRhsCon, buildDynCon, bindConArgs ) where @@ -89,7 +89,7 @@ cgTopRhsCon dflags id con args = amode <- getArgAmode arg case amode of CmmLit lit -> return lit - _ -> panic "GHC.StgToCmm.Con.cgTopRhsCon" + _ -> panic "GHC.StgToCmm.DataCon.cgTopRhsCon" nonptr_wds = tot_wds - ptr_wds diff --git a/compiler/GHC/StgToCmm/Expr.hs b/compiler/GHC/StgToCmm/Expr.hs index a8661d9de0..f2f549259b 100644 --- a/compiler/GHC/StgToCmm/Expr.hs +++ b/compiler/GHC/StgToCmm/Expr.hs @@ -19,7 +19,7 @@ import {-# SOURCE #-} GHC.StgToCmm.Bind ( cgBind ) import GHC.StgToCmm.Monad import GHC.StgToCmm.Heap import GHC.StgToCmm.Env -import GHC.StgToCmm.Con +import GHC.StgToCmm.DataCon import GHC.StgToCmm.Prof (saveCurrentCostCentre, restoreCurrentCostCentre, emitSetCCC) import GHC.StgToCmm.Layout import GHC.StgToCmm.Prim |