From d98e053bc5f987f4f230225ea5fae60a360fc4c6 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 10 Apr 2013 15:05:46 +0900
Subject: [PATCH] cosmetic change.

---
 CabalApi.hs | 4 ++--
 GHCApi.hs   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/CabalApi.hs b/CabalApi.hs
index ee9b439..91c525c 100644
--- a/CabalApi.hs
+++ b/CabalApi.hs
@@ -73,8 +73,8 @@ getGHCOptions ghcOptions binfo = ghcOptions ++ exts ++ [lang] ++ libs ++ libDirs
 cabalBuildInfo :: GenericPackageDescription -> BuildInfo
 cabalBuildInfo pd = fromJust $ fromLibrary pd <|> fromExecutable pd
   where
-    fromLibrary c     = libBuildInfo . condTreeData <$> condLibrary c
-    fromExecutable c  = buildInfo . condTreeData . snd <$> listToMaybe (condExecutables c)
+    fromLibrary c    = libBuildInfo . condTreeData <$> condLibrary c
+    fromExecutable c = buildInfo . condTreeData . snd <$> listToMaybe (condExecutables c)
 
 ----------------------------------------------------------------
 
diff --git a/GHCApi.hs b/GHCApi.hs
index f9a4767..e6f4f13 100644
--- a/GHCApi.hs
+++ b/GHCApi.hs
@@ -170,4 +170,4 @@ canCheckFast :: ModuleGraph -> Bool
 canCheckFast = not . any (hasTHorQQ . ms_hspp_opts)
   where
     hasTHorQQ :: DynFlags -> Bool
-    hasTHorQQ dflags = any (\opt -> xopt opt dflags) [Opt_TemplateHaskell, Opt_QuasiQuotes]
+    hasTHorQQ dflags = any (`xopt` dflags) [Opt_TemplateHaskell, Opt_QuasiQuotes]