diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c)2011, Hiromi ISHII
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Hiromi ISHII nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Main.hs b/Main.hs
new file mode 100644
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,68 @@
+{-# LANGUAGE NamedFieldPuns, RecordWildCards #-}
+{-# OPTIONS_GHC -Wall #-}
+module Main where
+import Distribution.InstalledPackageInfo
+import Distribution.Package hiding (depends)
+import System.Process
+import System.IO
+import Data.List
+import Control.Applicative
+import System.FilePath
+import Data.Maybe
+import Data.List.Split
+
+import PkgCheckParser
+
+main :: IO ()
+main = do
+  (_, _, hErr, _) <- runInteractiveProcess "ghc-pkg" ["check"] Nothing Nothing
+  src <- hGetContents hErr
+  if null src
+     then putStrLn "Nothing to fix. exit."
+     else case parseCheck src of
+            Left err -> hPrint stderr err
+            Right ps -> do
+              print ps
+              mapM_ procPackage ps
+              _ <- readProcess "ghc-pkg" ["recache", "--user"] ""
+              return ()
+
+procPackage :: BrokenPackage -> IO ()
+procPackage P{packageID, brokenDeps} = do
+  Just packID <- getPackageID packageID
+  newPIDs <- mapM (getPackageID . getPackageName) brokenDeps
+  let table = catMaybes $ zipWith (fmap.(,)) brokenDeps newPIDs
+  infoPath <- getPackageInfoPath packID
+  rslt  <- parseInstalledPackageInfo <$> readFile infoPath
+  case rslt of
+    ParseFailed err -> hPrint stderr err
+    ParseOk _ pack  -> do
+      let pack' = pack{depends=foldr (uncurry replace) (depends pack) table}
+      writeFile (snd $ splitFileName infoPath) $ showInstalledPackageInfo pack
+      writeFile infoPath $ showInstalledPackageInfo pack'
+
+getPackageName :: String -> String
+getPackageName pid = intercalate "-" $ take 2 $ splitOn "-" pid
+
+getPackageID :: String -> IO (Maybe String)
+getPackageID pName = do
+  rsl <- parseInstalledPackageInfo <$> readProcess "ghc-pkg" ["describe", pName] ""
+  case rsl of
+    ParseFailed _  -> return Nothing
+    ParseOk _ pack -> do
+      let InstalledPackageId pid = installedPackageId pack
+      return (Just pid)
+
+replace :: String -> String -> [InstalledPackageId] -> [InstalledPackageId]
+replace old new = intercalate [ InstalledPackageId new ] .
+                    splitOn [InstalledPackageId old]
+
+getPackageInfoPath :: String -> IO FilePath
+getPackageInfoPath pid = do
+  dir <- getConfDir
+  return $ dir </> (pid++".conf")
+
+getConfDir :: IO FilePath
+getConfDir = do
+  src <- readProcess "ghc-pkg" ["list", "--user"] ""
+  return $ init $ head $ filter ((=='/').head) $ lines src
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/ghc-pkg-autofix.cabal b/ghc-pkg-autofix.cabal
new file mode 100644
--- /dev/null
+++ b/ghc-pkg-autofix.cabal
@@ -0,0 +1,60 @@
+-- ghc-pkg-autofix.cabal auto-generated by cabal init. For additional
+-- options, see
+-- http://www.haskell.org/cabal/release/cabal-latest/doc/users-guide/authors.html#pkg-descr.
+-- The name of the package.
+Name:                ghc-pkg-autofix
+
+-- The package version. See the Haskell package versioning policy
+-- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for
+-- standards guiding when and how versions should be incremented.
+Version:             0.1
+
+-- A short (one-line) description of the package.
+Synopsis:            Simple utility to fix BROKEN package dependencies
+
+-- A longer description of the package.
+Description: The cabal-install sometimes reinstall existing library and break some package dependencies. This utility fixes such situations by replacing old package id in "broken" package with new id.
+
+-- The license under which the package is released.
+License:             BSD3
+
+-- The file containing the license text.
+License-file:        LICENSE
+
+-- The package author(s).
+Author:              Hiromi ISHII
+
+-- An email address to which users can send suggestions, bug reports,
+-- and patches.
+Maintainer:          konn.jinro_at_gmail.com
+
+-- A copyright notice.
+-- Copyright:           
+
+Category:            Development
+
+Build-type:          Simple
+
+-- Extra files to be distributed with the package, such as examples or
+-- a README.
+-- Extra-source-files:  
+
+-- Constraint on the version of Cabal needed to build this package.
+Cabal-version:       >=1.2
+
+
+Executable ghc-pkg-autofix
+  -- .hs or .lhs file containing the Main module.
+  Main-is: Main.hs            
+  
+  -- Packages needed in order to build this package.
+  Build-depends: base >= 3 && < 4, parsec >= 2 && < 4, split >= 0.1 && < 0.2,
+                 filepath  >= 1 && < 2, process >= 1.0 && < 1.1,
+                 Cabal >= 1.8 && <2
+  
+  -- Modules not exported by this package.
+  -- Other-modules:       
+  
+  -- Extra tools (e.g. alex, hsc2hs, ...) needed to build the source.
+  -- Build-tools:         
+