module TestPutStr.Fib where -- | Calculate Fibonacci number of given 'Num'. -- -- >>> putStrLn "foo" -- foo -- >>> putStr "bar" -- bar -- -- >>> putStrLn "baz" -- baz fib :: (Num t, Num t1) => t -> t1 fib :: forall t t1. (Num t, Num t1) => t -> t1 fib t _ = t1 forall a. HasCallStack => a undefined