showError :: ServantError -> IO ExitCode
showError err = do
  putStrLn $ "Error: " ++ show err
  return $ ExitFailure 1
showError :: ServantError -> IO ExitCode
showError err = do
  putStrLn $ "Error: " ++ show err
  return $ ExitFailure 1
showError err = do
  putStrLn $ "Error: " ++ show err
  return $ ExitFailure 1