test for Info.

2013-02-13 16:22:07 +09:00
parent e3f09cd476
commit 6752a8edcf
3 changed files with 22 additions and 0 deletions
--- a/test/data/ghc-mod-check/Data/Foo.hs
+++ b/test/data/ghc-mod-check/Data/Foo.hs
@@ -2,3 +2,10 @@ 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)