mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2026-05-17 10:36:22 +02:00
54 lines
1.2 KiB
Diff
54 lines
1.2 KiB
Diff
diff --git a/Build/Mans.hs b/Build/Mans.hs
|
|
index e7a6ce32c9..56183e30d6 100644
|
|
--- a/Build/Mans.hs
|
|
+++ b/Build/Mans.hs
|
|
@@ -1,6 +1,6 @@
|
|
{- Build man pages.
|
|
-
|
|
- - Copyright 2016-2025 Joey Hess <id@joeyh.name>
|
|
+ - Copyright 2016 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
@@ -9,14 +9,16 @@
|
|
|
|
module Build.Mans where
|
|
|
|
-import Utility.Process
|
|
import System.Directory
|
|
import System.FilePath
|
|
import Data.List
|
|
import Control.Monad
|
|
+import System.Process
|
|
import System.Exit
|
|
import Data.Maybe
|
|
import Utility.Exception
|
|
+import Control.Applicative
|
|
+import Prelude
|
|
|
|
buildMansOrWarn :: IO ()
|
|
buildMansOrWarn = do
|
|
@@ -35,17 +37,15 @@ buildMans = do
|
|
destm <- catchMaybeIO $ getModificationTime dest
|
|
if (Just srcm > destm)
|
|
then do
|
|
- (Nothing, Nothing, Nothing, pid) <- createProcess $ shell $ unwords $
|
|
- -- Run with perl because in some
|
|
+ r <- system $ unwords
|
|
+ -- Run with per because in some
|
|
-- cases it may not be executable.
|
|
- [ "perl"
|
|
- , "./Build/mdwn2man"
|
|
+ [ "perl", "./Build/mdwn2man"
|
|
, progName src
|
|
, "1"
|
|
, src
|
|
, "> " ++ dest
|
|
]
|
|
- r <- waitForProcess pid
|
|
if r == ExitSuccess
|
|
then return (Just dest)
|
|
else return Nothing
|
|
|
|
|