diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-06-02 16:54:13 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-06-02 16:54:58 -0400 |
| commit | bfc9f0cb3094da50c6d6e22242978513bee8a622 (patch) | |
| tree | c9e9f5119f2f592fb4b36847d3f9b47609d0d10c /Build | |
| parent | 0ff2732d9583fd70d75cd8e365587803a7ac75ed (diff) | |
fix man page building
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/MakeMans.hs | 15 | ||||
| -rw-r--r-- | Build/Mans.hs | 4 |
2 files changed, 17 insertions, 2 deletions
diff --git a/Build/MakeMans.hs b/Build/MakeMans.hs new file mode 100644 index 000000000..25e09c4aa --- /dev/null +++ b/Build/MakeMans.hs @@ -0,0 +1,15 @@ +{- Build man pages, for use by Makefile + - + - Copyright 2016 Joey Hess <id@joeyh.name> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +{-# OPTIONS_GHC -fno-warn-tabs #-} + +module Main where + +import Build.Mans + +main :: IO () +main = buildMansOrWarn diff --git a/Build/Mans.hs b/Build/Mans.hs index a50396e5e..e7455d858 100644 --- a/Build/Mans.hs +++ b/Build/Mans.hs @@ -18,8 +18,8 @@ import System.Exit import Data.Maybe import Utility.Exception -main :: IO () -main = do +buildMansOrWarn :: IO () +buildMansOrWarn = do mans <- buildMans when (any isNothing mans) $ error "mdwn2man failed" |