User-reported unhelpful error message

[codeworld-feedback]

Program: https://code.world/haskell#Py5hXKhhFnywuPSP_rPnY0A

Message:

program.hs:2:34-52: error:
    • Couldn't match type ‘[Char]’ with ‘IO ()’
      Expected type: IO ()
        Actual type: String
    • In the second argument of ‘(<>)’, namely ‘show (circleArea 12)’
      In a stmt of a 'do' block:
        putStrLn ("Area of r=12 :") <> show (circleArea 12)
      In the expression:
        do putStrLn ("Area of r=12 :") <> show (circleArea 12)
           print (rectangleArea 10 20)