diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-01 22:27:38 +0200 |
|---|---|---|
| committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-01 22:27:38 +0200 |
| commit | 8071c27826d60eec1cb20f00f9767c32366defac (patch) | |
| tree | 339a7f7b05161cf61b91e96ff742cf0fb0386eb2 | |
| parent | 868248d5e847e29ffede5b6c7d20f08a3ec7eb47 (diff) | |
Add qualified name test for identifiers hyperlinking test case.
| -rw-r--r-- | hypsrc-test/ref/src/Identifiers.html | 45 | ||||
| -rw-r--r-- | hypsrc-test/src/Identifiers.hs | 1 |
2 files changed, 46 insertions, 0 deletions
diff --git a/hypsrc-test/ref/src/Identifiers.html b/hypsrc-test/ref/src/Identifiers.html index 4c82ad01..14cfbd8b 100644 --- a/hypsrc-test/ref/src/Identifiers.html +++ b/hypsrc-test/ref/src/Identifiers.html @@ -737,6 +737,51 @@ ></a ><span class="" > + </span + ><span class="hs-identifier hs-var" + >putStrLn</span + ><span class="" + > </span + ><span class="hs-operator hs-var" + >.</span + ><span class="" + > </span + ><span class="hs-identifier hs-var" + >show</span + ><span class="" + > </span + ><span class="hs-operator hs-var" + >$</span + ><span class="" + > </span + ><a href="Identifiers.html#norf" + ><span class="hs-identifier hs-var" + >Identifiers</span + ><span class="hs-operator hs-var" + >.</span + ><span class="hs-identifier hs-var" + >norf</span + ></a + ><span class="" + > </span + ><a href="#local-0" + ><span class="hs-identifier hs-var" + >x</span + ></a + ><span class="" + > </span + ><a href="#local-0" + ><span class="hs-identifier hs-var" + >y</span + ></a + ><span class="" + > </span + ><a href="#local-0" + ><span class="hs-identifier hs-var" + >z</span + ></a + ><span class="" + > </span ><span class="hs-keyword" >where</span diff --git a/hypsrc-test/src/Identifiers.hs b/hypsrc-test/src/Identifiers.hs index e2d6223d..173c3ba7 100644 --- a/hypsrc-test/src/Identifiers.hs +++ b/hypsrc-test/src/Identifiers.hs @@ -21,6 +21,7 @@ main :: IO () main = do putStrLn . show $ foo x y putStrLn . show $ quux z + putStrLn . show $ Identifiers.norf x y z where x = 10 y = 20 |