Revision 9eeb0aa5 htools/Ganeti/Ssconf.hs
b/htools/Ganeti/Ssconf.hs | ||
---|---|---|
46 | 46 |
import System.IO.Error (isDoesNotExistError) |
47 | 47 |
|
48 | 48 |
import qualified Ganeti.Constants as C |
49 |
import qualified Ganeti.Path as Path |
|
49 | 50 |
import Ganeti.BasicTypes |
50 | 51 |
import Ganeti.HTools.Utils |
51 | 52 |
|
... | ... | |
86 | 87 |
keyToFilename :: Maybe FilePath -- ^ Optional config path override |
87 | 88 |
-> SSKey -- ^ ssconf key |
88 | 89 |
-> FilePath |
89 |
keyToFilename optpath key = fromMaybe C.dataDir optpath </>
|
|
90 |
keyToFilename optpath key = fromMaybe Path.dataDir optpath </>
|
|
90 | 91 |
sSFilePrefix ++ sSKeyToRaw key |
91 | 92 |
|
92 | 93 |
-- | Runs an IO action while transforming any error into 'Bad' |
Also available in: Unified diff