[commit: packages/dph] master: Prepare dph for a vectInfoVar type change (64eca66)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/dph

On branch  : master
Link       : http://git.haskell.org/packages/dph.git/commitdiff/64eca669f13f4d216af9024474a3fc73ce101793

>---------------------------------------------------------------

commit 64eca669f13f4d216af9024474a3fc73ce101793
Author: Bartosz Nitka <bnitka at fb.com>
Date:   Tue Jul 5 07:20:23 2016 -0700

    Prepare dph for a vectInfoVar type change
    
    vectInfoVar uses deterministic sets now, see
    Note [Deterministic UniqFM] for more details.


>---------------------------------------------------------------

64eca669f13f4d216af9024474a3fc73ce101793
 dph-plugin/DPH/Core/Pretty.hs | 4 ++--
 dph-plugin/DPH/Pass/Summon.hs | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/dph-plugin/DPH/Core/Pretty.hs b/dph-plugin/DPH/Core/Pretty.hs
index 54bcd97..499adc3 100644
--- a/dph-plugin/DPH/Core/Pretty.hs
+++ b/dph-plugin/DPH/Core/Pretty.hs
@@ -17,7 +17,7 @@ import DataCon
 import Literal
 import Id
 import Unique
-import qualified UniqFM as UFM
+import qualified UniqDFM as UDFM
 
 -- Guts -----------------------------------------------------------------------
 pprModGuts :: ModGuts -> Doc
@@ -45,7 +45,7 @@ instance Pretty AvailInfo where
 -- | The VectInfo maps names to their vectorised versions.
 instance Pretty VectInfo where
  ppr vi
-  = ppr $ UFM.eltsUFM (vectInfoVar vi)
+  = ppr $ UDFM.eltsUDFM (vectInfoVar vi)
 
 
 -- Top Binds ------------------------------------------------------------------
diff --git a/dph-plugin/DPH/Pass/Summon.hs b/dph-plugin/DPH/Pass/Summon.hs
index aea1d1a..9645cd6 100644
--- a/dph-plugin/DPH/Pass/Summon.hs
+++ b/dph-plugin/DPH/Pass/Summon.hs
@@ -21,7 +21,7 @@ import CoreMonad
 import Avail
 import Data.Maybe
 import Data.Set                 (Set)
-import qualified UniqFM         as UFM
+import qualified UniqDFM        as UDFM
 import qualified Data.Set       as Set
 import Control.Monad
 import Debug.Trace
@@ -35,7 +35,7 @@ passSummon guts
         let nsExported  = [ n | Avail n <- mg_exports guts]
         let nsExported_vect
                 = catMaybes
-                $ map (UFM.lookupUFM (vectInfoVar $ mg_vect_info guts))
+                $ map (UDFM.lookupUDFM (vectInfoVar $ mg_vect_info guts))
                 $ nsExported
 
         -- Summon all of the vectorised things.