Commit 1034ef27 authored by Simon Marlow's avatar Simon Marlow
Browse files

follow changes in HsRecFields

parent abbe21f2
......@@ -65,7 +65,7 @@ main = do
exitWith (ExitFailure 1)
else return ()
GHC.defaultErrorHandler defaultDynFlags $ do
session <- newSession JustTypecheck (Just ghcRootDir)
session <- newSession (Just ghcRootDir)
flags <- getSessionDynFlags session
(pflags, _) <- parseDynamicFlags flags ghcArgs
let flags = pflags { hscTarget = HscNothing } -- don't generate anything
......@@ -239,9 +239,9 @@ boundThings modname lbinding =
TypePat _ -> tl -- XXX need help here
SigPatIn p _ -> patThings p tl
SigPatOut p _ -> patThings p tl
DictPat _ _ -> tl
conArgs (PrefixCon ps) tl = foldr patThings tl ps
conArgs (RecCon pairs) tl = foldr (\f tl -> patThings (hsRecFieldArg f) tl) tl pairs
conArgs (RecCon (HsRecFields { rec_flds = flds })) tl
= foldr (\f tl -> patThings (hsRecFieldArg f) tl) tl flds
conArgs (InfixCon p1 p2) tl = patThings p1 $ patThings p2 tl
......
Supports Markdown
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