diff options
Diffstat (limited to 'compiler/vectorise/Vectorise/Generic/PData.hs')
-rw-r--r-- | compiler/vectorise/Vectorise/Generic/PData.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/vectorise/Vectorise/Generic/PData.hs b/compiler/vectorise/Vectorise/Generic/PData.hs index e5b94b1f38..4560c83e8b 100644 --- a/compiler/vectorise/Vectorise/Generic/PData.hs +++ b/compiler/vectorise/Vectorise/Generic/PData.hs @@ -14,6 +14,7 @@ import Vectorise.Generic.Description import Vectorise.Utils import Vectorise.Env( GlobalEnv( global_fam_inst_env ) ) +import BasicTypes ( SourceText(..) ) import BuildTyCl import DataCon import TyCon @@ -89,7 +90,7 @@ buildPDataDataCon orig_name vect_tc repr_tc repr (mkFamilyTyConApp repr_tc (mkTyVarTys tvs)) repr_tc where - no_bang = HsSrcBang Nothing NoSrcUnpack NoSrcStrict + no_bang = HsSrcBang NoSourceText NoSrcUnpack NoSrcStrict -- buildPDatasTyCon ----------------------------------------------------------- @@ -133,7 +134,7 @@ buildPDatasDataCon orig_name vect_tc repr_tc repr (mkFamilyTyConApp repr_tc (mkTyVarTys tvs)) repr_tc where - no_bang = HsSrcBang Nothing NoSrcUnpack NoSrcStrict + no_bang = HsSrcBang NoSourceText NoSrcUnpack NoSrcStrict -- Utils ---------------------------------------------------------------------- |