8c73820 · hakyll · git.iko.soy

Clean up type declarations, use fst and <$>.

commit8c73820abcd91ece6fac001bdec3aa341d90f6bf authorEvan Cofsky <evan@tunixman.com> dateTue 21 May 2013, 09:01 (13 years ago) parentc236cda

1 file changed+4−6

unifiedsplit

src/Hakyll/Commands.hs+4−6

@@ -14,7 +14,7 @@ module Hakyll.Commands

1414

1515--------------------------------------------------------------------------------

1616import System.Exit (exitWith, ExitCode)

17−

17+import Control.Applicative

1818

1919--------------------------------------------------------------------------------

2020import qualified Hakyll.Check as Check

@@ -34,10 +34,8 @@ import Hakyll.Preview.Server

3434

3535--------------------------------------------------------------------------------

3636-- | Build the site

37−build :: Configuration -> Verbosity -> Rules a -> IO (ExitCode)

38−build conf verbosity rules = do

39− (ec, _) <- run conf verbosity rules

40− return ec

37+build :: Configuration -> Verbosity -> Rules a -> IO ExitCode

38+build conf verbosity rules = fst <$> run conf verbosity rules

4139

4240--------------------------------------------------------------------------------

4341-- | Run the checker and exit

@@ -76,7 +74,7 @@ preview _ _ _ _ = previewServerDisabled

7674

7775--------------------------------------------------------------------------------

7876-- | Rebuild the site

79−rebuild :: Configuration -> Verbosity -> Rules a -> IO (ExitCode)

77+rebuild :: Configuration -> Verbosity -> Rules a -> IO ExitCode

8078rebuild conf verbosity rules =

8179 clean conf >> build conf verbosity rules

8280