Mercurial > repo

comparison paste/paste.14186 @ 0:e037173e0012

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial import.
author HackBot
date Thu, 16 Feb 2012 19:42:32 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e037173e0012
1 import System.Environment
2 import System.Process
3 import System.Exit
4 import Control.Monad
5 import Control.Applicative
6 import Data.List
7
8 main = do
9 r <- buildRegex . permuteArgs <$> getArgs
10 (_, _, _, h) <- createProcess (proc "/hackenv/bin/log" [r])
11 exitWith <$> waitForProcess h
12 where
13 permuteArgs = permutations . join . map words
14 buildRegex = oBrackets . intercalate ".*" . map (iBrackets . intercalate "|")
15 iBrackets s = "(?:" ++ s ++ ")"
16 oBrackets s = "^.*(?:" ++ s ++ ").*$"