gistfile1.hs

calculatePadding :: Int -> Int
calculatePadding = ceiling . log . fromIntegral


    Defaulting the following constraint(s) to type ‘Double’
      (RealFrac b0)
        arising from a use of ‘ceiling’ at src/Cat/Decorators.hs:21:22-28
      (Num b0)
        arising from a use of ‘fromIntegral’
        at src/Cat/Decorators.hs:21:38-49
      (Floating b0)
        arising from a use of ‘log’ at src/Cat/Decorators.hs:21:32-34
    In the first argument of ‘(.)’, namely ‘ceiling’
    In the expression: ceiling . log . fromIntegral
    In the expression: ceiling . log . fromIntegral $ a