diff options
| -rw-r--r-- | compiler/site/Main.hs | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/compiler/site/Main.hs b/compiler/site/Main.hs index e7fb92f..351c0b8 100644 --- a/compiler/site/Main.hs +++ b/compiler/site/Main.hs @@ -17,6 +17,7 @@ import Rules (rules) data Command = Build | Clean + | Rebuild | Check Cmd.Check parseCheck :: O.Parser Cmd.Check @@ -31,17 +32,19 @@ parseCommand = O.subparser $ O.command "build" (O.info (pure Build) (O.progDesc "Build the site")) <> O.command "clean" (O.info (pure Clean) (O.progDesc "Clean")) <> + O.command "rebuild" (O.info (pure Rebuild) (O.progDesc "Clean build")) <> O.command "check" (O.info ((Check <$> parseCheck) <**> O.helper) (O.progDesc "Check links")) -data Options = Options - { verbose :: Bool - , outDir :: FilePath - , srcDir :: FilePath - , cacheDir :: FilePath - , command :: Command - } +data Options = + Options + { verbose :: Bool + , outDir :: FilePath + , srcDir :: FilePath + , cacheDir :: FilePath + , command :: Command + } parseOptions :: O.Parser Options parseOptions = @@ -83,4 +86,5 @@ main = do case command opts of Build -> Cmd.build conf log rules >>= exitWith Clean -> Cmd.clean conf log + Rebuild -> Cmd.clean conf log >> Cmd.build conf log rules >>= exitWith Check chk -> Cmd.check conf log chk >>= exitWith |