From cf0fb7aacd5d2f11df60286019e1f970e380a423 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Sun, 3 Mar 2013 15:57:31 +0900
Subject: [PATCH] Refactoring according to hlint.

---
 Cradle.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Cradle.hs b/Cradle.hs
index 694557c..0e1a718 100644
--- a/Cradle.hs
+++ b/Cradle.hs
@@ -38,7 +38,7 @@ findCradle Nothing = do
     wdir <- getCurrentDirectory
     cfiles <- cabalDir wdir
     case cfiles of
-        Nothing -> return $ Cradle {
+        Nothing -> return Cradle {
             cradleCurrentDir  = wdir
           , cradleCabalDir    = Nothing
           , cradleCabalFile   = Nothing
@@ -49,7 +49,7 @@ findCradle Nothing = do
                 conf = packageConfName sbox strver
                 confOpts = ghcPackageConfOptions ver conf
             exist <- doesFileExist conf
-            return $ Cradle {
+            return Cradle {
                 cradleCurrentDir      = wdir
               , cradleCabalDir        = Just cdir
               , cradleCabalFile       = Just cfile
@@ -72,7 +72,7 @@ ghcVersion :: IO (String, Int)
 ghcVersion = ghcVer >>= toTupple
   where
     ghcVer = programFindVersion ghcProgram silent (programName ghcProgram)
-    toTupple Nothing  = throwIO $ userError $ "ghc not found"
+    toTupple Nothing  = throwIO $ userError "ghc not found"
     toTupple (Just v)
       | length vs < 2 = return (verstr, 0)
       | otherwise     = return (verstr, ver)