[commit: ghc] wip/T2893: Add HasDebugCallStack to nameModule (3311896)

[git at git.haskell.org]

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

On branch  : wip/T2893
Link       : http://ghc.haskell.org/trac/ghc/changeset/3311896d34943e27fc9ca8251de011f2cea41c9e/ghc

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

commit 3311896d34943e27fc9ca8251de011f2cea41c9e
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jan 26 09:03:12 2018 +0000

    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.


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

3311896d34943e27fc9ca8251de011f2cea41c9e
 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