diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -4,6 +4,7 @@
 -- License: BSD3 (see LICENSE)
 -- Author: Dino Morelli <dino@ui3.info>
 
+import Control.Monad
 import Distribution.Simple
 import Distribution.Simple.LocalBuildInfo
 import System.Cmd
@@ -12,33 +13,40 @@
 import System.FilePath
 
 
-main = defaultMainWithHooks (simpleUserHooks 
-   { postInst = customPostInstall
-   } )
-   where
-      customPostInstall _ _ _ localBuildInfo = do
-         -- Construct src and dest dirs for copying the man page
-         let manFile = "uacpid.1"
-         let srcPath = "resources" </> "man" </> manFile
+copyManPage _ _ _ localBuildInfo = do
+   -- Construct src and dest dirs for copying the man page
+   let manFile = "uacpid.1"
+   let srcPath = "resources" </> "man" </> manFile
 
-         {- There's a "right way" to get the absolute mandir FilePath 
-            from the Cabal API, but I can't figure it out yet.
-            Have to revisit someday.
-         -}
-         let prefixDir = fromPathTemplate $ prefix
-               $ installDirTemplates localBuildInfo
-         let destDir =
-               prefixDir </> "share" </> "man" </> "man1"
+   {- There's a "right way" to get the absolute mandir FilePath 
+      from the Cabal API, but I can't figure it out yet.
+      Have to revisit someday.
+   -}
+   let prefixDir = fromPathTemplate $ prefix
+         $ installDirTemplates localBuildInfo
+   let destDir =
+         prefixDir </> "share" </> "man" </> "man1"
 
-         createDirectoryIfMissing True destDir
+   createDirectoryIfMissing True destDir
 
-         let destPath = destDir </> manFile
+   putStrLn $ "Installing man page in " ++ destDir
 
-         -- Copy it to the appropriate man directory, based on the
-         -- prefix
-         copyFile srcPath destPath
+   let destPath = destDir </> manFile
 
-         -- gzip the man page
-         gzipExitCode <- system $ "gzip -f " ++ destPath
+   -- Copy it to the appropriate man directory, based on the
+   -- prefix
+   copyFile srcPath destPath
 
-         exitWith gzipExitCode
+   -- gzip the man page
+   gzipExitCode <- system $ "gzip -f " ++ destPath
+
+   unless (gzipExitCode == ExitSuccess) $
+      putStrLn "Copy of man page failed!"
+
+   return ()
+
+
+main = defaultMainWithHooks (simpleUserHooks 
+   { postCopy = copyManPage
+   , postInst = copyManPage
+   } )
diff --git a/src/main.hs b/src/main.hs
--- a/src/main.hs
+++ b/src/main.hs
@@ -167,7 +167,7 @@
       , ""
       , "Please see man uacpid for detailed info"
       , ""
-      , "Version 0.0.2  2009-Jul-15  Dino Morelli <dino@ui3.info>"
+      , "Version 0.0.3  2009-Jul-15  Dino Morelli <dino@ui3.info>"
       ]
 
    exitWith ExitSuccess
diff --git a/uacpid.cabal b/uacpid.cabal
--- a/uacpid.cabal
+++ b/uacpid.cabal
@@ -1,5 +1,5 @@
 name:                uacpid
-version:             0.0.2
+version:             0.0.3
 cabal-version:       >= 1.2
 build-type:          Simple
 license:             BSD3