Add a man page

A basic and static one for now, perhaps should be generated out of a
single source with README and the help message later.

1 files changed, 20 insertions, 0 deletions

diff --git a/Setup.hs b/Setup.hs
new file mode 100644
index 0000000..1af2e43
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,20 @@
+import Distribution.Simple
+import Distribution.Simple.LocalBuildInfo
+import Distribution.Simple.Utils
+import Distribution.PackageDescription
+import Distribution.Simple.Setup
+import System.FilePath
+
+main = defaultMainWithHooks simpleUserHooks { postCopy = installManPage }
+
+installManPage :: Args
+               -> CopyFlags
+               -> PackageDescription
+               -> LocalBuildInfo
+               -> IO ()
+installManPage _ cf pd lbi =
+  let dirs = absoluteInstallDirs pd lbi (fromFlag $ copyDest cf)
+      man1 = mandir dirs </> "man1"
+      fname = "pancake.1"
+      target = man1 </> fname
+  in installOrdinaryFile (fromFlag $ copyVerbosity cf) fname target