nbouscal

Keybase proof

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:

nbouscal

proportionOfExpense = do
  split <- getSupportedOrgSplit
  centralExpense <- forOrg central getOrgSubtotalExpense
  let shareOfCentral = split * centralExpense
  totalExpense <- getSupportedOrgTotalExpense
  let proportion = shareOfCentral / totalExpense
  return proportion

nbouscal

{-# 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