Question

So, I could accomplish this by using 'topLevelSomething and removing the last token after ., or I could use moduleName 'something but that returns a Maybe…

Is there a more straightforward way to get the module name of the current context?

So, given the code:

module My.Module.Blah where
test = magicHere

What goes in that magicHere spot such that test = “My.Module.Blah” ?

Answer 1

Great answers. We ended up doing it this way as it seemed a little cleaner.

moduleOf 'someTopLevelThingInModule

moduleOf :: Language.Haskell.TH.Syntax.Name -> String
moduleOf = dropLastToken . show
dropLastToken :: String -> String
dropLastToken = reverse . tail . dropWhile (/= '.') . reverse