addStuff.hs


1
2
3
4
5
6
7
8
9
10
11
12

import Control.Monad.Instances

addStuff :: Int -> Int
addStuff = do
    a <- (*2)
    b <- (+10)
    return (a+b)

complexOp = do
    a <- sqrt
    b <- log . (**2)
    return (a+b)