cosmetic change.

This commit is contained in:
Kazu Yamamoto 2013-04-10 15:05:46 +09:00
parent 7ec9fc1ffb
commit d98e053bc5
2 changed files with 3 additions and 3 deletions

View File

@ -170,4 +170,4 @@ canCheckFast :: ModuleGraph -> Bool
canCheckFast = not . any (hasTHorQQ . ms_hspp_opts) canCheckFast = not . any (hasTHorQQ . ms_hspp_opts)
where where
hasTHorQQ :: DynFlags -> Bool hasTHorQQ :: DynFlags -> Bool
hasTHorQQ dflags = any (\opt -> xopt opt dflags) [Opt_TemplateHaskell, Opt_QuasiQuotes] hasTHorQQ dflags = any (`xopt` dflags) [Opt_TemplateHaskell, Opt_QuasiQuotes]