floatIO x = x insideSum (a,b) = a + b sumTuple [] = 0 sumTuple (x:xs) = insideSum x + sumTuple xs main = do val <- insideSum (1.1,2.2)
Standard input is empty
[1 of 1] Compiling Main ( prog.hs, prog.o )
prog.hs:12:1:
The last statement in a 'do' construct must be an expression
Standard output is empty