[commit: haddock] master: Add test case for basic identifier hyperlinking. (3b6cbe3)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/3b6cbe3ac03d03ea9824770a54868e41d8cf13b6

>---------------------------------------------------------------

commit 3b6cbe3ac03d03ea9824770a54868e41d8cf13b6
Author: Łukasz Hanuszczak <lukasz.hanuszczak at gmail.com>
Date:   Tue Jun 30 19:48:24 2015 +0200

    Add test case for basic identifier hyperlinking.


>---------------------------------------------------------------

3b6cbe3ac03d03ea9824770a54868e41d8cf13b6
 hypsrc-test/src/Identifiers.hs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/hypsrc-test/src/Identifiers.hs b/hypsrc-test/src/Identifiers.hs
new file mode 100644
index 0000000..e2d6223
--- /dev/null
+++ b/hypsrc-test/src/Identifiers.hs
@@ -0,0 +1,27 @@
+module Identifiers where
+
+
+foo, bar, baz :: Int -> Int -> Int
+foo x y = x + x * bar y x * y + y
+bar x y = y + x - baz x y - x + y
+baz x y = x * y * y * y * x
+
+quux :: Int -> Int
+quux x = foo (bar x x) (bar x x)
+
+norf :: Int -> Int -> Int -> Int
+norf x y z
+    | x < 0 = quux x
+    | y < 0 = quux y
+    | z < 0 = quux z
+    | otherwise = norf (-x) (-y) (-z)
+
+
+main :: IO ()
+main = do
+    putStrLn . show $ foo x y
+    putStrLn . show $ quux z
+  where
+    x = 10
+    y = 20
+    z = 30