Commit 7da3d30c authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent ca816c6d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment