Comments only
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 6 Oct 2015 08:53:18 +0000 (09:53 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 6 Oct 2015 08:53:43 +0000 (09:53 +0100)
compiler/typecheck/Inst.hs

index 18a0e2f..f4caf2b 100644 (file)
@@ -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