flags <- getSessionDynFlags session
(pflags, _) <- parseDynamicFlags flags ghcArgs
let flags = pflags { hscTarget = HscNothing } -- don't generate anything
flags <- getSessionDynFlags session
(pflags, _) <- parseDynamicFlags flags ghcArgs
let flags = pflags { hscTarget = HscNothing } -- don't generate anything
TypePat _ -> tl -- XXX need help here
SigPatIn p _ -> patThings p tl
SigPatOut p _ -> patThings p tl
TypePat _ -> tl -- XXX need help here
SigPatIn p _ -> patThings p tl
SigPatOut p _ -> patThings p tl