I hereby claim:
- I am nbouscal on github.
- I am nbouscal (https://keybase.io/nbouscal) on keybase.
- I have a public key ASDm3ceXVuwLLxsGUWVc-mRjVqaezUZAqoaimgThCM5yUQo
To claim this, I am signing this object:
{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-} | |
import Control.Arrow | |
import Data.Monoid | |
type FizzBuzz = Either String Int | |
showFB :: FizzBuzz -> String | |
showFB (Left x) = x | |
showFB (Right x) = show x |
proportionOfExpense = do | |
split <- getSupportedOrgSplit | |
centralExpense <- forOrg central getOrgSubtotalExpense | |
let shareOfCentral = split * centralExpense | |
totalExpense <- getSupportedOrgTotalExpense | |
let proportion = shareOfCentral / totalExpense | |
return proportion |
I hereby claim:
To claim this, I am signing this object: