@@ -7,11 +7,6 @@ import Control.Monad
77import System.FilePath
88import System.Environment (getArgs)
99import Text.Pandoc.Shared (normalize)
10−import System.Directory (getModificationTime)
11−import System.IO.Error (isDoesNotExistError)
12−import System.Time (ClockTime(..))
13−import Data.Maybe (catMaybes)
14−import qualified Control.Exception as E
1510
1611main = do
1712 rmContents <- liftM toString $ B.readFile "README"
@@ -29,12 +24,9 @@ main = do
2924makeManPage :: Bool -> FilePath -> Meta -> [Block] -> IO ()
3025makeManPage verbose page meta blocks = do
3126 let templ = page <.> "template"
32− modDeps <- modifiedDependencies page ["README", templ]
33− unless (null modDeps) $ do
34− manTemplate <- liftM toString $ B.readFile templ
35− writeManPage page manTemplate (Pandoc meta blocks)
36− when verbose $
37− putStrLn $ "Created " ++ page
27+ manTemplate <- liftM toString $ B.readFile templ
28+ writeManPage page manTemplate (Pandoc meta blocks)
29+ when verbose $ putStrLn $ "Created " ++ page
3830
3931writeManPage :: FilePath -> String -> Pandoc -> IO ()
4032writeManPage page templ doc = do
@@ -45,17 +37,6 @@ writeManPage page templ doc = do
4537 bottomUp capitalizeHeaders doc
4638 B.writeFile page $ fromString manPage
4739
48−-- | Returns a list of 'dependencies' that have been modified after 'file'.
49−modifiedDependencies :: FilePath -> [FilePath] -> IO [FilePath]
50−modifiedDependencies file dependencies = do
51− fileModTime <- E.catch (getModificationTime file) $
52− \e -> if isDoesNotExistError e
53− then return (TOD 0 0) -- the minimum ClockTime
54− else ioError e
55− depModTimes <- mapM getModificationTime dependencies
56− let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
57− return $ catMaybes modified
58−
5940removeLinks :: Inline -> [Inline]
6041removeLinks (Link l _) = l
6142removeLinks x = [x]