ghc-mod/test/data/ghc-mod-check/lib/Data/Foo.hs

12 lines
187 B
Haskell
Raw Normal View History

2015-03-05 15:50:06 +00:00
module Data.Foo where
foo :: Int
foo = undefined
fibonacci :: Int -> Integer
fibonacci n = fib 1 0 1
where
fib m x y
| n == m = y
| otherwise = fib (m+1) y (x + y)