aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test/src
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-06-30 19:48:24 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-06-30 22:37:50 +0200
commit3b6cbe3ac03d03ea9824770a54868e41d8cf13b6 (patch)
treeaf79e77f8b2b9c6ebe8b154ace3b9119abd63247 /hypsrc-test/src
parent5f13457a8e31f424d797f721e93434e09bc9140a (diff)
Add test case for basic identifier hyperlinking.
Diffstat (limited to 'hypsrc-test/src')
-rw-r--r--hypsrc-test/src/Identifiers.hs27
1 files changed, 27 insertions, 0 deletions
diff --git a/hypsrc-test/src/Identifiers.hs b/hypsrc-test/src/Identifiers.hs
new file mode 100644
index 00000000..e2d6223d
--- /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