fork download

floatIO :: Float -> IO Float
floatIO x = x
 
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = print floatIO insideSum (2.0,1.1)

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:2:12:
    Couldn't match expected type `IO Float'
           against inferred type `Float'
    In the expression: x
    In the definition of `floatIO': floatIO x = x

prog.hs:11:7:
    Couldn't match expected type `((Float, Float) -> Float)
                                  -> (t1, t2)
                                  -> t'
           against inferred type `IO ()'
    In the expression: print floatIO insideSum (2.0, 1.1)
    In the definition of `main':
        main = print floatIO insideSum (2.0, 1.1)

Standard output is empty