diff --git a/Monadius.cabal b/Monadius.cabal
--- a/Monadius.cabal
+++ b/Monadius.cabal
@@ -1,15 +1,21 @@
 name:                Monadius
-version:             0.91
-synopsis:            2-D arcade scroller
-description:         A fast-paced 2-D scrolling vector graphics clone of the arcade game Gradius.
-category:            Game
+version:             0.92
+
 license:             GPL
 license-file:        LICENSE
 author:              Hideyuki Tanaka & Takayuki Muranushi
 maintainer:          Takayuki Muranushi <muranushi@gmail.com>
+
+stability:           Stable
+category:            Game
+synopsis:            2-D arcade scroller
+description:         A fast-paced 2-D scrolling vector graphics clone of the arcade game Gradius;
+                     it is dedicated to the 20th anniversary of Gradius series.
+                     .
+                     The Darcs repo is available at <http://code.haskell.org/monadius/>.
 homepage:            http://www.geocities.jp/takascience/haskell/monadius_en.html
 
-build-depends:       base>3, haskell98, GLUT, OpenGL, array, directory
+build-depends:       base>3, array, directory, GLUT, OpenGL
 build-type:          Simple
 data-files:          readme-e.txt, readme-j.txt
 tested-with:         GHC==6.8.2
@@ -19,5 +25,5 @@
 hs-source-dirs:      Monadius
 other-modules:       Demo, Game, Monadius, Recorder, Util
 
-ghc-options:         -O2 -Wall -optl-Wl,-s
+ghc-options:         -Wall
 ghc-prof-options:    -prof -auto-all
diff --git a/Monadius/Main.hs b/Monadius/Main.hs
--- a/Monadius/Main.hs
+++ b/Monadius/Main.hs
@@ -109,8 +109,7 @@
     removesuffix str = if '.' `elem` str then (removesuffix . init) str else str
 
 exitLoop :: IO a
-exitLoop = do
-  throwIO $ ExitException ExitSuccess
+exitLoop = throwIO $ ExitException ExitSuccess
 
 initMatrix :: IO ()
 initMatrix = do