diff --git a/Distribution/Cab/Commands.hs b/Distribution/Cab/Commands.hs
--- a/Distribution/Cab/Commands.hs
+++ b/Distribution/Cab/Commands.hs
@@ -37,6 +37,7 @@
             | OptExecProfile
             | OptJobs String
             | OptImport String
+            | OptStatic
             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.2.4
+Version:                0.2.5
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3
diff --git a/src/Commands.hs b/src/Commands.hs
--- a/src/Commands.hs
+++ b/src/Commands.hs
@@ -28,6 +28,7 @@
                     ,(SwLibProfile, Solo "--enable-library-profiling --ghc-options=\"-fprof-auto -fprof-cafs\"")
                     ,(SwExecProfile, Solo "--enable-executable-profiling --ghc-options=\"-fprof-auto -fprof-cafs\"")
                     ,(SwJobs, WithEqArg "--jobs")
+                    ,(SwStatic, Solo "--disable-shared")
                     ]
        , manual = Just "[<package> [<ver>]]"
        }
@@ -62,6 +63,7 @@
                     ,(SwBench, Solo "--enable-benchmarks")
                     ,(SwLibProfile, Solo "--enable-library-profiling --ghc-options=\"-fprof-auto -fprof-cafs\"")
                     ,(SwExecProfile, Solo "--enable-executable-profiling --ghc-options=\"-fprof-auto -fprof-cafs\"")
+                    ,(SwStatic, Solo "--disable-shared")
                     ]
        , manual = Nothing
        }
diff --git a/src/Options.hs b/src/Options.hs
--- a/src/Options.hs
+++ b/src/Options.hs
@@ -45,10 +45,13 @@
   , Option ['i'] ["import"]
       (ReqArg OptImport "<dir>:<dir>")
       "Add module import paths"
+  , Option ['s'] ["static"]
+      (NoArg OptStatic)
+      "Create static libraries only"
   , Option ['h'] ["help"]
       (NoArg OptHelp)
       "Show help message"
   ]
 
 optionDB :: OptionDB
-optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwFlag,SwTest,SwBench,SwDepsOnly,SwLibProfile,SwExecProfile,SwJobs,SwImport] getOptDB
+optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwFlag,SwTest,SwBench,SwDepsOnly,SwLibProfile,SwExecProfile,SwJobs,SwImport,SwStatic] getOptDB
diff --git a/src/Run.hs b/src/Run.hs
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -22,6 +22,7 @@
 toSwitch OptExecProfile = SwExecProfile
 toSwitch (OptJobs _)    = SwJobs
 toSwitch (OptImport _)  = SwImport
+toSwitch OptStatic      = SwStatic
 toSwitch _              = error "toSwitch"
 
 ----------------------------------------------------------------
diff --git a/src/Types.hs b/src/Types.hs
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -21,6 +21,7 @@
             | SwExecProfile
             | SwJobs
             | SwImport
+            | SwStatic
             deriving (Eq,Show)
 
 ----------------------------------------------------------------