Rename ghcOpts -> ghcUserOptions

This commit is contained in:
Daniel Gröber
2014-08-13 18:40:01 +02:00
parent f2ccea7f29
commit c1c7dcec20
6 changed files with 9 additions and 8 deletions

View File

@@ -64,7 +64,7 @@ withLogger :: IOish m
-> GhcModT m (Either String String)
withLogger setDF body = ghandle sourceError $ do
logref <- liftIO newLogRef
wflags <- filter ("-fno-warn" `isPrefixOf`) . ghcOpts <$> options
wflags <- filter ("-fno-warn" `isPrefixOf`) . ghcUserOptions <$> options
withDynFlags (setLogger logref . setDF) $
withCmdFlags wflags $ do
body