[commit: ghc] master: Add HasDebugCallStack to nameModule (7fb3287)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7fb3287f7e3dabcbc1c76297bd4e9ed6de39599a/ghc

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

commit 7fb3287f7e3dabcbc1c76297bd4e9ed6de39599a
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Feb 2 13:57:20 2018 -0500

    Add HasDebugCallStack to nameModule
    
    This function is called in lots of places, so if it
    every fails it's good to know from where it was called.
    
    This is Simon's patch, part of his `wip/T2893` branch.
    
    Test Plan: Validate
    
    Subscribers: rwbarton, thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D4352


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

7fb3287f7e3dabcbc1c76297bd4e9ed6de39599a
 compiler/basicTypes/Name.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/basicTypes/Name.hs b/compiler/basicTypes/Name.hs
index 637fc69..02eb067 100644
--- a/compiler/basicTypes/Name.hs
+++ b/compiler/basicTypes/Name.hs
@@ -194,7 +194,7 @@ instance HasOccName Name where
 
 nameUnique              :: Name -> Unique
 nameOccName             :: Name -> OccName
-nameModule              :: Name -> Module
+nameModule              :: HasDebugCallStack => Name -> Module
 nameSrcLoc              :: Name -> SrcLoc
 nameSrcSpan             :: Name -> SrcSpan