Skip to content
This repository
Browse code

minor fix.

  • Loading branch information...
commit eedca795e1625619816da0a72088b9b135ec57cc 1 parent 8fbdfac
Kazu Yamamoto authored

Showing 1 changed file with 4 additions and 3 deletions. Show diff stats Hide diff stats

  1. +4 3 CabalDev.hs
7 CabalDev.hs
@@ -37,9 +37,10 @@ addPath orig_opts path = do
37 37 searchIt :: [FilePath] -> IO FilePath
38 38 searchIt [] = throwIO $ userError "Not found"
39 39 searchIt path = do
40   - a <- doesDirectoryExist (mpath path)
41   - if a then
42   - findConf (mpath path)
  40 + let cabalDir = mpath path
  41 + exist <- doesDirectoryExist cabalDir
  42 + if exist then
  43 + findConf cabalDir
43 44 else
44 45 searchIt $ init path
45 46 where

0 comments on commit eedca79

Please sign in to comment.
Something went wrong with that request. Please try again.