GHC.runGhc (Just libdir) $ do
dflags <- GHC.getSessionDynFlags
GHC.setSessionDynFlags dflags
- cores <- mapM GHC.compileToCoreSimplified filenames
+ cores <- mapM GHC.compileToCoreModule filenames
env <- GHC.getSession
specs <- case finder of
Nothing -> return []
top <- findBind topc mod
state <- findExpr statec mod
test <- findExpr testc mod
- case top of
- Just t -> return [(t, state, test)]
- Nothing -> error $ "Could not find top entity requested"
+ return [(top, state, test)]
+ -- case top of
+ -- Just t -> return [(t, state, test)]
+ -- Nothing -> return error $ "Could not find top entity requested"