cab 0.1.8 → 0.1.9

raw patch · 2 files changed

+7/−6 lines, 2 files

Files

• GenPaths.hs +6/−5
• cab.cabal +1/−1

@@ -18,22 +18,23 @@     case mnv of         Nothing       -> hPutStrLn stderr "cabal file does not exist"         Just (nm,ver) -> do-            let file = "Paths_" ++ nm ++ ".hs"+            let file = "Paths_" ++ nm' ++ ".hs"             exist <- doesFileExist file             if exist then                 hPutStrLn stderr $ file ++ " already exists"             else do                 putStrLn $ "Writing " ++ file ++ "..."                 writeFile file $-                     "module Paths_" ++ nm ++ "  where\n"+                     "module Paths_" ++ nm' ++ "  where\n"                   ++ "import Data.Version\n"                   ++ "\n"                   ++ "version :: Version\n"                   ++ "version = Version [" ++ ver' ++ "] []\n"           where-            ver' = map trans ver-            trans c-              | c == '.'  = ','+            nm'  = map (trans '-' '_') nm+            ver' = map (trans '.' ',') ver+            trans c1 c2 c+              | c == c1   = c2               | otherwise = c  getNameVersion :: IO (Maybe (String,String))

@@ -1,5 +1,5 @@ Name:                   cab-Version:                0.1.8+Version:                0.1.9 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3