From 3378ef409170ae1f319c934876d2b9e1a14bb9a8 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Wed, 19 Aug 2015 17:07:25 +0200
Subject: Create simple test cases for Hoogle backend.

---
 hoogle-test/src/modules/Bar.hs | 12 ++++++++++++
 hoogle-test/src/modules/Foo.hs |  9 +++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 hoogle-test/src/modules/Bar.hs
 create mode 100644 hoogle-test/src/modules/Foo.hs

(limited to 'hoogle-test/src/modules')

diff --git a/hoogle-test/src/modules/Bar.hs b/hoogle-test/src/modules/Bar.hs
new file mode 100644
index 00000000..156a835f
--- /dev/null
+++ b/hoogle-test/src/modules/Bar.hs
@@ -0,0 +1,12 @@
+module Bar where
+
+
+import Foo
+
+
+bar :: Int -> Int
+bar x = foo' x x
+
+
+bar' :: Int -> Int -> Int
+bar' x y = foo' (bar (foo x)) (bar (foo y))
diff --git a/hoogle-test/src/modules/Foo.hs b/hoogle-test/src/modules/Foo.hs
new file mode 100644
index 00000000..6581fe4c
--- /dev/null
+++ b/hoogle-test/src/modules/Foo.hs
@@ -0,0 +1,9 @@
+module Foo where
+
+
+foo :: Int -> Int
+foo = (* 2)
+
+
+foo' :: Int -> Int -> Int
+foo' x y = foo x + foo y
-- 
cgit v1.2.3