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

follow changes in HsRecFields

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