diff --git a/CmdDB.hs b/CmdDB.hs
--- a/CmdDB.hs
+++ b/CmdDB.hs
@@ -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
 
 ----------------------------------------------------------------
 
diff --git a/Types.hs b/Types.hs
--- a/Types.hs
+++ b/Types.hs
@@ -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)
diff --git a/cab.cabal b/cab.cabal
--- a/cab.cabal
+++ b/cab.cabal
@@ -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