fork download
  1. floatIO :: Float -> IO Float
  2. floatIO x = x
  3.  
  4. insideSum :: (Float, Float) -> Float
  5. insideSum (a,b) = a + b
  6.  
  7. sumTuple :: [(Float, Float)] -> Float
  8. sumTuple [] = 0
  9. sumTuple (x:xs) = insideSum x + sumTuple xs
  10.  
  11. main = do
  12. val <- insideSum (1.1,2.2)
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:12:1:
    The last statement in a 'do' construct must be an expression
stdout
Standard output is empty