diff options
author | Carter Tazio Schonwald <carter.schonwald@gmail.com> | 2020-01-22 18:49:11 -0500 |
---|---|---|
committer | Carter Tazio Schonwald <carter.schonwald@gmail.com> | 2020-01-22 18:49:11 -0500 |
commit | 8ed55c3b96e9582becb9c15d1de4575f3728bc94 (patch) | |
tree | 7e77b25c24e499a1d36100229e72634155e1c73a | |
parent | 6a8567da9e184e64d16045028a402949f3276224 (diff) | |
download | haskell-wip/dlist-pre-whitespace-cleanup.tar.gz |
fix trailing whitespacewip/dlist-pre-whitespace-cleanup
-rw-r--r-- | compiler/GHC/StgToCmm/Layout.hs | 2 | ||||
-rw-r--r-- | compiler/coreSyn/CoreUtils.hs | 2 | ||||
-rw-r--r-- | compiler/deSugar/DsBinds.hs | 2 | ||||
-rw-r--r-- | compiler/deSugar/DsUsage.hs | 4 |
4 files changed, 5 insertions, 5 deletions
diff --git a/compiler/GHC/StgToCmm/Layout.hs b/compiler/GHC/StgToCmm/Layout.hs index 9e4f604a0e..a695418443 100644 --- a/compiler/GHC/StgToCmm/Layout.hs +++ b/compiler/GHC/StgToCmm/Layout.hs @@ -482,7 +482,7 @@ mkVirtHeapOffsetsWithPadding dflags header things = with_padding field_off | padding == 0 = DL.singleton field_off - | otherwise = DL.fromList + | otherwise = DL.fromList [ Padding padding (hdr_bytes + bytes_so_far) , field_off ] diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs index e5365436e1..e0a2e5a4d2 100644 --- a/compiler/coreSyn/CoreUtils.hs +++ b/compiler/coreSyn/CoreUtils.hs @@ -2257,7 +2257,7 @@ diffIdInfo env bndr1 bndr2 = locBind "in unfolding of" bndr1 bndr2 $ diffUnfold env (unfoldingInfo info1) (unfoldingInfo info2) | otherwise - = locBind "in Id info of" bndr1 bndr2 . DL.singleton $ + = locBind "in Id info of" bndr1 bndr2 . DL.singleton $ fsep [pprBndr LetBind bndr1, text "/=", pprBndr LetBind bndr2] where info1 = idInfo bndr1; info2 = idInfo bndr2 diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs index e1a8ac016e..695bd63a5d 100644 --- a/compiler/deSugar/DsBinds.hs +++ b/compiler/deSugar/DsBinds.hs @@ -114,7 +114,7 @@ dsLHsBinds :: LHsBinds GhcTc -> DsM ([Id], [(Id,CoreExpr)]) dsLHsBinds binds = do let bindsToDL (str, bnds) = (DL.fromList str, DL.fromList bnds) ds_bs <- mapBagM (fmap bindsToDL . dsLHsBind) binds - let + let (strictDL, bindingDL) = foldBag (\(a, a') (b, b') -> (a DL.++ b, a' DL.++ b')) id (DL.empty, DL.empty) ds_bs diff --git a/compiler/deSugar/DsUsage.hs b/compiler/deSugar/DsUsage.hs index 024dcba8cd..390ab740d8 100644 --- a/compiler/deSugar/DsUsage.hs +++ b/compiler/deSugar/DsUsage.hs @@ -116,9 +116,9 @@ mkUsageInfo hsc_env this_mod dir_imp_mods used_names dependent_files merged let mod_usages = DL.fromList $ mk_mod_usage_info (eps_PIT eps) hsc_env this_mod dir_imp_mods used_names - usage_files = DL.fromList $ + usage_files = DL.fromList $ uncurry UsageFile <$> zip dependent_files hashes - usage_mergedreqs = DL.fromList $ + usage_mergedreqs = DL.fromList $ uncurry UsageMergedRequirement <$> merged usages = DL.toList $ mod_usages DL.++ usage_files DL.++ usage_mergedreqs DL.++ plugin_usages |