MicroHs-0.15.0.0: tests/ForExp.hs
module ForExp where foreign export ccall funcName :: Int -> IO Int foreign export ccall "other" (*) :: Int -> Int -> Int funcName :: Int -> IO Int funcName x = do putStrLn "funcName called" pure (x + 1)
module ForExp where foreign export ccall funcName :: Int -> IO Int foreign export ccall "other" (*) :: Int -> Int -> Int funcName :: Int -> IO Int funcName x = do putStrLn "funcName called" pure (x + 1)