import System.Exit (exitFailure)
import Control.Concurrent 
import Villefort

main :: IO ()
main =  do forkIO (villefort def {port = 999,noCustom = True}) >> do
             putStrLn "started server"