diff options
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" |