cabal-dir 0.1.0.2 → 0.1.0.3

raw patch · 2 files changed

+7/−3 lines, 2 files

Files

cabal-dir.cabal +2/−2
cabal-dir.hs +5/−1

cabal-dir.cabal view

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                cabal-dir-version:             0.1.0.2+version:             0.1.0.3 stability:           Experimental synopsis:            show dist dir of 'cabal copy/install' description:         @@ -31,7 +31,7 @@ source-repository	this   type:		git   location:	git://github.com/YoshikuniJujo/cabal-dir.git-  tag:		0.1.0.2+  tag:		0.1.0.3  executable cabal-dir   main-is:             cabal-dir.hs

cabal-dir.hs view

@@ -67,7 +67,11 @@ removePrefix "" s = s removePrefix p s 	| p `isPrefixOf` s = dropWhile (== '/') $ drop (length p) s-	| otherwise = s+	| otherwise = addCurrent s++addCurrent :: FilePath -> FilePath+addCurrent fp@('/' : _) = fp+addCurrent fp = "./" ++ fp  main :: IO () main = do