[1 of 1] Compiling Main ( prog.hs, prog.o )
prog.hs:15:17: error:
• Couldn't match expected type ‘a0 -> c0’
with actual type ‘(Double, Double)’
• In the first argument of ‘dist’, namely ‘p1’
In the first argument of ‘(+)’, namely ‘(dist p1 p2)’
In the first argument of ‘(==)’, namely
‘(dist p1 p2) + (dist p2 p3)’
prog.hs:15:20: error:
• Couldn't match expected type ‘a0 -> c0’
with actual type ‘(Double, Double)’
• In the second argument of ‘dist’, namely ‘p2’
In the first argument of ‘(+)’, namely ‘(dist p1 p2)’
In the first argument of ‘(==)’, namely
‘(dist p1 p2) + (dist p2 p3)’
prog.hs:15:32: error:
• Couldn't match expected type ‘a0 -> c0’
with actual type ‘(Double, Double)’
• In the first argument of ‘dist’, namely ‘p2’
In the second argument of ‘(+)’, namely ‘(dist p2 p3)’
In the first argument of ‘(==)’, namely
‘(dist p1 p2) + (dist p2 p3)’
prog.hs:15:35: error:
• Couldn't match expected type ‘a0 -> c0’
with actual type ‘(Double, Double)’
• In the second argument of ‘dist’, namely ‘p3’
In the second argument of ‘(+)’, namely ‘(dist p2 p3)’
In the first argument of ‘(==)’, namely
‘(dist p1 p2) + (dist p2 p3)’
prog.hs:15:48: error:
• Couldn't match expected type ‘a0 -> c0’
with actual type ‘(Double, Double)’
• In the first argument of ‘dist’, namely ‘p1’
In the second argument of ‘(==)’, namely ‘(dist p1 p3)’
In the second argument of ‘($)’, namely
‘(dist p1 p2) + (dist p2 p3) == (dist p1 p3)’
prog.hs:15:51: error:
• Couldn't match expected type ‘a0 -> c0’
with actual type ‘(Double, Double)’
• In the second argument of ‘dist’, namely ‘p3’
In the second argument of ‘(==)’, namely ‘(dist p1 p3)’
In the second argument of ‘($)’, namely
‘(dist p1 p2) + (dist p2 p3) == (dist p1 p3)’