nginxReader :: String -> IO NginxWebserver
nginxReader filename = do
  res <- parseTreeNginx filename
  if isLeft res 
    then fail "Parser failed"
    else do
      let (Right tree) = res
      return (createSourceNginx tree)
nginxReader :: String -> IO NginxWebserver
nginxReader filename = do
  res <- parseTreeNginx filename
  if isLeft res 
    then fail "Parser failed"
    else do
      let (Right tree) = res
      return (createSourceNginx tree)
nginxReader filename = do
  res <- parseTreeNginx filename
  if isLeft res 
    then fail "Parser failed"
    else do
      let (Right tree) = res
      return (createSourceNginx tree)