hackage-meta: some scripts for filling out missing bounds
This commit is contained in:
11
scripts/diff.hs
Normal file
11
scripts/diff.hs
Normal file
@@ -0,0 +1,11 @@
|
||||
import Data.Tuple
|
||||
import System.FilePath
|
||||
import System.Environment
|
||||
import System.Process
|
||||
|
||||
main = do
|
||||
vs <- lines <$> getContents
|
||||
[pkg, dir] <- getArgs
|
||||
mapM_ system $ map (\(v1, v2) -> "diff -u --color=always " ++ file pkg dir v1 ++ " " ++ file pkg dir v2 ++ "; echo; echo; echo") $ map swap $ drop 1 vs `zip` vs
|
||||
where
|
||||
file pkg dir v = dir </> (pkg ++ "-" ++ v) <.> "cabal"
|
||||
Reference in New Issue
Block a user