diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-03-07 13:28:34 +0000 |
|---|---|---|
| committer | David Feuer <David.Feuer@gmail.com> | 2017-04-28 18:04:22 -0400 |
| commit | 1cae73aa7a1bf934e3dcae943d0d1686e8b12c26 (patch) | |
| tree | 0011f50a7330e20bb4aa4e057c157e319961ae18 /compiler/vectorise/Vectorise/Utils | |
| parent | 9ac22183e405773ea7147728e593edd78f30a025 (diff) | |
| download | haskell-1cae73aa7a1bf934e3dcae943d0d1686e8b12c26.tar.gz | |
Move dataConTagZ to DataCon
Just a simple refactoring to remove duplication
Diffstat (limited to 'compiler/vectorise/Vectorise/Utils')
| -rw-r--r-- | compiler/vectorise/Vectorise/Utils/Base.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/vectorise/Vectorise/Utils/Base.hs b/compiler/vectorise/Vectorise/Utils/Base.hs index 42271091d7..88058e22d9 100644 --- a/compiler/vectorise/Vectorise/Utils/Base.hs +++ b/compiler/vectorise/Vectorise/Utils/Base.hs @@ -4,7 +4,7 @@ module Vectorise.Utils.Base ( voidType , newLocalVVar - , mkDataConTag, dataConTagZ + , mkDataConTag , mkWrapType , mkClosureTypes , mkPReprType @@ -66,9 +66,6 @@ newLocalVVar fs vty mkDataConTag :: DynFlags -> DataCon -> CoreExpr mkDataConTag dflags = mkIntLitInt dflags . dataConTagZ -dataConTagZ :: DataCon -> Int -dataConTagZ con = dataConTag con - fIRST_TAG - -- Type Construction ---------------------------------------------------------- |