@@ -9,7 +9,7 @@ import Distribution.Simple.InstallDirs as I
99import Distribution.Simple.LocalBuildInfo as L
1010import qualified Distribution.Simple.Setup as S
1111import qualified Distribution.Simple.Program as P
12−import Distribution.Simple.Utils (createDirectoryIfMissingVerbose, rewriteFile)
12+import Distribution.Simple.Utils (createDirectoryIfMissingVerbose, rewriteFile, notice, installOrdinaryFiles)
1313import Distribution.Compiler
1414import Distribution.PackageDescription
1515import Distribution.Text
@@ -228,7 +228,7 @@ idrisBuild _ flags _ local = unless (execOnly (configFlags local)) $ do
228228 where
229229 makeBuild dir = make verbosity [ "-C", dir, "build" , "IDRIS=" ++ idrisCmd local]
230230
231− buildRTS = make verbosity (["-C", "rts", "build"] ++
231+ buildRTS = make verbosity (["-C", "rts", "build"] ++
232232 gmpflag (usesGMP (configFlags local)))
233233
234234 gmpflag False = []
@@ -242,6 +242,7 @@ idrisBuild _ flags _ local = unless (execOnly (configFlags local)) $ do
242242idrisInstall verbosity copy pkg local = unless (execOnly (configFlags local)) $ do
243243 installStdLib
244244 installRTS
245+ installManPage
245246 where
246247 target = datadir $ L.absoluteInstallDirs pkg local copy
247248
@@ -254,6 +255,12 @@ idrisInstall verbosity copy pkg local = unless (execOnly (configFlags local)) $
254255 putStrLn $ "Installing run time system in " ++ target'
255256 makeInstall "rts" target'
256257
258+ installManPage = do
259+ let mandest = (mandir $ L.absoluteInstallDirs pkg local copy) ++ "/man1"
260+ notice verbosity $ unwords ["Copying man page to", mandest]
261+ installOrdinaryFiles verbosity mandest [("man", "idris.1")]
262+
263+
257264 makeInstall src target =
258265 make verbosity [ "-C", src, "install" , "TARGET=" ++ target, "IDRIS=" ++ idrisCmd local]
259266