import Config
import HalbumEdit as Edit
import HalbumView as View

import Network.NewCGI

halbumMain :: Config -> CGI CGIResult
halbumMain conf = 
    do
    maction <- Edit.getAction
    case maction of
                 Just action -> Edit.doAction conf action
                 Nothing -> do
                            action <- View.getAction
                            View.viewAction conf action

main :: IO ()
main = runHalbum True halbumMain