printError :: String -> IO ()
printError str = do
  putStrLn $ "Error: " ++ str
  exitWith $ ExitFailure 1
printError :: String -> IO ()
printError str = do
  putStrLn $ "Error: " ++ str
  exitWith $ ExitFailure 1
printError str = do
  putStrLn $ "Error: " ++ str
  exitWith $ ExitFailure 1