cab 0.1.14 → 0.1.15
raw patch · 3 files changed
+20/−3 lines, 3 files
Files
CmdDB.hs view
@@ -64,7 +64,9 @@ , routing = RouteCabal ["configure"] , switches = [(SwSandbox, Just "--sandbox") ,(SwFlag, Just "--flags")- ,(SwTest, Just "--enable-tests")]+ ,(SwTest, Just "--enable-tests")+ ,(SwBench, Just "--enable-benchmarks")+ ] , manual = Nothing } , CommandSpec {@@ -197,6 +199,14 @@ , manual = Nothing } , CommandSpec {+ command = Bench+ , commandNames = ["bench"]+ , document = "Run benchmarks"+ , routing = RouteCabal ["bench"]+ , switches = [(SwSandbox, Just "--sandbox")]+ , manual = Nothing+ }+ , CommandSpec { command = Doc , commandNames = ["doc", "haddock", "man"] , document = "Generate manuals"@@ -255,13 +265,16 @@ , Option ['t'] ["test"] (NoArg OptTest) "Enable test"+ , Option ['b'] ["bench"]+ (NoArg OptBench)+ "Enable benchmark" , Option ['h'] ["help"] (NoArg OptHelp) "Show help message" ] optionDB :: OptionDB-optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwSandbox,SwFlag,SwTest] getOptDB+optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwSandbox,SwFlag,SwTest,SwBench] getOptDB ----------------------------------------------------------------
Types.hs view
@@ -16,6 +16,7 @@ | SwSandbox | SwFlag | SwTest+ | SwBench deriving (Eq,Show) data Option = OptNoharm@@ -26,6 +27,7 @@ | OptFlag String | OptTest | OptHelp+ | OptBench deriving (Eq,Show) toSwitch :: Option -> Switch@@ -36,6 +38,7 @@ toSwitch (OptSandbox _) = SwSandbox toSwitch (OptFlag _) = SwFlag toSwitch OptTest = SwTest+toSwitch OptBench = SwBench toSwitch _ = error "toSwitch" getSandbox :: [Option] -> Maybe FilePath@@ -82,6 +85,7 @@ | Add | Ghci | Test+ | Bench | Doc | Help deriving (Eq,Show)
cab.cabal view
@@ -1,5 +1,5 @@ Name: cab-Version: 0.1.14+Version: 0.1.15 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3