Comments only

7da3d30c · Simon Peyton Jones · ca816c6d · 7da3d30c
Commit 7da3d30c authored Oct 06, 2015 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

compiler/typecheck/Inst.hs compiler/typecheck/Inst.hs +3 -0

No files found.
--- a/compiler/typecheck/Inst.hs
+++ b/compiler/typecheck/Inst.hs
@@ -407,6 +407,9 @@ syntaxNameCtxt name orig ty tidy_env
 -}

 getOverlapFlag :: Maybe OverlapMode -> TcM OverlapFlag
+-- Construct the OverlapFlag from the global module flags,
+-- but if the overlap_mode argument is (Just m),
+--     set the OverlapMode to 'm'
 getOverlapFlag overlap_mode
  = do  { dflags <- getDynFlags
        ; let overlap_ok    = xopt Opt_OverlappingInstances dflags