refactoring.

2013-02-18 13:49:12 +09:00 · 2013-02-18 13:49:12 +09:00 · 2cced9b4bf
commit 2cced9b4bf
parent 06cac206cd
1 changed files with 1 additions and 2 deletions
--- a/CabalDev.hs
+++ b/CabalDev.hs
@ -44,8 +44,7 @@ searchIt path = do
      else
        searchIt $ init path
  where
-    cabalDir = mpath path
-    mpath a = joinPath a </> "cabal-dev/"
+    cabalDir = joinPath path </> "cabal-dev/"

 findConf :: FilePath -> IO FilePath
 findConf path = do