Add HasDebugCallStack to nameModule
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 2 Feb 2018 18:57:20 +0000 (13:57 -0500)
committerBen Gamari <ben@smart-cactus.org>
Fri, 2 Feb 2018 18:57:21 +0000 (13:57 -0500)
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

compiler/basicTypes/Name.hs

index 637fc69..02eb067 100644 (file)
@@ -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