Revision 67e4fcf4 htools/Ganeti/Ssconf.hs

b/htools/Ganeti/Ssconf.hs
86 86
keyToFilename :: FilePath     -- ^ Config path root
87 87
              -> SSKey        -- ^ Ssconf key
88 88
              -> FilePath     -- ^ Full file name
89
keyToFilename cfgpath key = do
89
keyToFilename cfgpath key =
90 90
  cfgpath </> sSFilePrefix ++ sSKeyToRaw key
91 91

  
92 92
-- | Runs an IO action while transforming any error into 'Bad'

Also available in: Unified diff