Skip to content

GitLab

GHC
GHC
Commit 7da3d30c authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files
Options

Comments only

parent ca816c6d
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
compiler/typecheck/Inst.hs
View file @ 7da3d30c
...@@ -407,6 +407,9 @@ syntaxNameCtxt name orig ty tidy_env ...@@ -407,6 +407,9 @@ syntaxNameCtxt name orig ty tidy_env
-} -}
getOverlapFlag :: Maybe OverlapMode -> TcM OverlapFlag 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 getOverlapFlag overlap_mode
= do { dflags <- getDynFlags = do { dflags <- getDynFlags
; let overlap_ok = xopt Opt_OverlappingInstances dflags ; 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