Improve command-line option parsing

src/Mima/Format/State.hs

@@ -2,7 +2,6 @@
 
 module Mima.Format.State
   ( FormatConfig(..)
-  , defaultFormatConfig
   , FormatEnv(..)
   , FormatReader
   , Formatter
@@ -43,21 +42,6 @@ data FormatConfig = FormatConfig
   , fcShowLabels        :: Bool -- Currently unused
   } deriving (Show)
 
-defaultFormatConfig :: FormatConfig
-defaultFormatConfig = FormatConfig
-  { fcSparse            = True
-  , fcShowRegisterFlags = True
-  , fcShowMemoryFlags   = True
-  , fcShowAddressDec    = True
-  , fcShowAddressHex    = True
-  , fcShowAddressBin    = False
-  , fcShowWordDec       = True
-  , fcShowWordHex       = True
-  , fcShowWordBin       = False
-  , fcShowInstructions  = True
-  , fcShowLabels        = False
-  }
-
 data FormatEnv = FormatEnv
   { feState  :: MimaState
   , feFlags  :: Flags (MimaAddress -> Bool)