<html xmlns="http://www.w3.org/1999/xhtml" ><head ><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js" ></script ></head ><body ><pre ><span class="hs-pragma" >{-# LANGUAGE Haskell2010 #-}</span ><span > </span ><span id="line-2" ></span ><span class="hs-comment" >-- Tests that the identifers/operators are properly linked even when:</span ><span > </span ><span id="line-3" ></span ><span class="hs-comment" >--</span ><span > </span ><span id="line-4" ></span ><span class="hs-comment" >-- * backquoted, parenthesized, vanilla</span ><span > </span ><span id="line-5" ></span ><span class="hs-comment" >-- * qualified, not-qualified</span ><span > </span ><span id="line-6" ></span ><span class="hs-comment" >--</span ><span > </span ><span id="line-7" ></span ><span class="hs-keyword" >module</span ><span > </span ><span class="hs-identifier" >LinkingIdentifiers</span ><span > </span ><span class="hs-keyword" >where</span ><span > </span ><span id="line-8" ></span ><span > </span ><span id="line-9" ></span ><span class="annot" ><a href="LinkingIdentifiers.html#ident" ><span class="hs-identifier hs-type" >ident</span ></a ></span ><span > </span ><span class="hs-glyph" >::</span ><span > </span ><span class="annot" ><span class="hs-identifier hs-type" >Int</span ></span ><span > </span ><span class="hs-glyph" >-></span ><span > </span ><span class="annot" ><span class="hs-identifier hs-type" >Int</span ></span ><span > </span ><span class="hs-glyph" >-></span ><span > </span ><span class="annot" ><span class="hs-identifier hs-type" >Int</span ></span ><span > </span ><span id="line-10" ></span ><span id="" ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ></span ><span > </span ><span id="ident" ><span class="annot" ><span class="annottext" >ident :: Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#ident" ><span class="hs-operator hs-var hs-var" >`ident`</span ></a ></span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span class="hs-glyph" >=</span ><span > </span ><span class="hs-special" >(</span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#ident" ><span class="hs-operator hs-var" >`ident`</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span class="hs-special" >)</span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int forall a. Num a => a -> a -> a </span ><span class="hs-operator hs-var" >+</span ></span ><span > </span ><span class="hs-special" >(</span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#ident" ><span class="hs-operator hs-var" >`LinkingIdentifiers.ident`</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span class="hs-special" >)</span ><span > </span ><span id="line-11" ></span ><span class="annot" ><a href="LinkingIdentifiers.html#ident" ><span class="hs-identifier hs-var" >ident</span ></a ></span ><span > </span ><span id="" ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span class="hs-glyph" >=</span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#ident" ><span class="hs-identifier hs-var" >ident</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int forall a. Num a => a -> a -> a </span ><span class="hs-operator hs-var" >+</span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#ident" ><span class="hs-identifier hs-var" >LinkingIdentifiers.ident</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span id="line-12" ></span ><span > </span ><span id="line-13" ></span ><span class="annot" ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-type" >(++:++)</span ></a ></span ><span > </span ><span class="hs-glyph" >::</span ><span > </span ><span class="annot" ><span class="hs-identifier hs-type" >Int</span ></span ><span > </span ><span class="hs-glyph" >-></span ><span > </span ><span class="annot" ><span class="hs-identifier hs-type" >Int</span ></span ><span > </span ><span class="hs-glyph" >-></span ><span > </span ><span class="annot" ><span class="hs-identifier hs-type" >Int</span ></span ><span > </span ><span id="line-14" ></span ><span id="" ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ></span ><span > </span ><span id="%2B%2B%3A%2B%2B" ><span class="annot" ><span class="annottext" >++:++ :: Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-var hs-var" >++:++</span ></a ></span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span class="hs-glyph" >=</span ><span > </span ><span class="hs-special" >(</span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-var" >++:++</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span class="hs-special" >)</span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int forall a. Num a => a -> a -> a </span ><span class="hs-operator hs-var" >+</span ></span ><span > </span ><span class="hs-special" >(</span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-var" >LinkingIdentifiers.++:++</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span class="hs-special" >)</span ><span > </span ><span id="line-15" ></span ><span class="annot" ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-var" >(++:++)</span ></a ></span ><span > </span ><span id="" ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span class="hs-glyph" >=</span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-var" >(++:++)</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int forall a. Num a => a -> a -> a </span ><span class="hs-operator hs-var" >+</span ></span ><span > </span ><span class="annot" ><span class="annottext" >Int -> Int -> Int </span ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" ><span class="hs-operator hs-var" >(LinkingIdentifiers.++:++)</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><a href="#" ><span class="hs-identifier hs-var" >x</span ></a ></span ><span > </span ><span class="annot" ><span class="annottext" >Int </span ><span class="hs-number" >2</span ></span ><span > </span ><span id="line-16" ></span ></pre ></body ></html >