- mod_basename = dots_to_slashes (moduleNameString mod)
- src_basename = basenameOf (expectJust "mkStubPaths"
- (ml_hs_file location))
+ mod_basename = dots_to_slashes (moduleNameString mod)
+ src_basename = dropExtension $ expectJust "mkStubPaths"
+ (ml_hs_file location)