cab 0.1.12 → 0.1.13
raw patch · 4 files changed
+12/−6 lines, 4 files
Files
CmdDB.hs view
@@ -63,7 +63,8 @@ , document = "Configure a cabal package" , routing = RouteCabal ["configure"] , switches = [(SwSandbox, Just "--sandbox")- ,(SwFlag, Just "--flags")]+ ,(SwFlag, Just "--flags")+ ,(SwTest, Just "--enable-tests")] , manual = Nothing } , CommandSpec {@@ -190,7 +191,7 @@ , CommandSpec { command = Test , commandNames = ["test"]- , document = "run tests"+ , document = "Run tests" , routing = RouteCabal ["test"] , switches = [(SwSandbox, Just "--sandbox")] , manual = Nothing@@ -198,7 +199,7 @@ , CommandSpec { command = Doc , commandNames = ["doc", "haddock", "man"]- , document = "generate manuals"+ , document = "Generate manuals" , routing = RouteCabal ["haddock", "--hyperlink-source"] , switches = [] , manual = Nothing@@ -243,13 +244,16 @@ , Option ['f'] ["flags"] (ReqArg OptFlag "<flags>") "Specify flags"+ , Option ['t'] ["test"]+ (NoArg OptTest)+ "Enable test" , Option ['h'] ["help"] (NoArg OptHelp) "Show help message" ] optionDB :: OptionDB-optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwSandbox,SwFlag] getOptDB+optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwSandbox,SwFlag,SwTest] getOptDB ----------------------------------------------------------------
Types.hs view
@@ -15,6 +15,7 @@ | SwInfo | SwSandbox | SwFlag+ | SwTest deriving (Eq,Show) data Option = OptNoharm@@ -23,6 +24,7 @@ | OptInfo | OptSandbox String | OptFlag String+ | OptTest | OptHelp deriving (Eq,Show) @@ -33,6 +35,7 @@ toSwitch OptInfo = SwInfo toSwitch (OptSandbox _) = SwSandbox toSwitch (OptFlag _) = SwFlag+toSwitch OptTest = SwTest toSwitch _ = error "toSwitch" getSandbox :: [Option] -> Maybe FilePath
VerDB.hs view
@@ -7,7 +7,6 @@ import Control.Applicative import Control.Arrow (second) import Data.Attoparsec.ByteString.Char8-import Data.ByteString (ByteString) import Data.Conduit import Data.Conduit.Attoparsec import Data.Conduit.Process
cab.cabal view
@@ -1,5 +1,5 @@ Name: cab-Version: 0.1.12+Version: 0.1.13 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3