app/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module Main where

import WWWStaticus
import WWWStaticusPlugins
import System.Environment

-- |The main IO action just feeds the 3 command line parameters to
-- WWWStaticus.runStaticus: input path, output path, html root
main :: IO ()
main = do args<-getArgs
          prog<-getProgName
          if length args /= 3
          then putStrLn $ "usage: " ++ prog ++ 
                          " [in_path] [out_path] [root]"
          else runStaticus (args!!0) (args!!1) (args!!2) 
                           staticusPluginsDefault