diff --git a/Shu-thing.cabal b/Shu-thing.cabal
--- a/Shu-thing.cabal
+++ b/Shu-thing.cabal
@@ -1,17 +1,26 @@
 name:                Shu-thing
-version:             1.1
-synopsis:            A vector shooter game
-description:         A 2-D vector graphics upwards-scrolling keyboard-controlled shooter.
-                     You shoot the enemies while dodging their bullets until you reach and defeat the enemy boss.
-category:            Game
+version:             1.1.1
+
 license:             BSD3
 license-file:        LICENSE
 author:              Hideyuki Tanaka & Takayuki Muranushi
 maintainer:          Takayuki Muranushi <muranushi@gmail.com>, <gwern0@gmail.com>
-build-depends:       base, GLUT, haskell98
+
+stability:           Stable
+category:            Game
+synopsis:            A vector shooter game
+description:         A 2-D vector graphics upwards-scrolling keyboard-controlled shooter.
+                     You shoot the enemies while dodging their bullets until you reach and defeat the enemy boss.
+                     .
+                     Darcs repo available at <http://code.haskell.org/shu-thing/>.
+homepage:            http://www.geocities.jp/takascience/index_en.html
+
+build-depends:       base, GLUT
+
 build-type:          Simple
+tested-with:         GHC==6.8.2
 
 executable:          shu-thing
 main-is:             Shu-thing.hs
-ghc-options:         -O2 -funbox-strict-fields -Wall -Werror -optl-Wl,-s
+ghc-options:         -O2 -funbox-strict-fields -Wall
 ghc-prof-options:    -prof -auto-all
diff --git a/Shu-thing.hs b/Shu-thing.hs
--- a/Shu-thing.hs
+++ b/Shu-thing.hs
@@ -63,7 +63,7 @@
   Scene next <- m
   writeIORef cp next
 
-data Scene = Scene (IO Scene)
+newtype Scene = Scene (IO Scene)
 
 openingProc :: IORef [Key] -> IO Scene
 openingProc ks = do