Warning, /frameworks/syntax-highlighting/autotests/input/highlight.hs is written in an unsupported language. File is not indexed.

 -- test file for Haskell syntax highlighting in KDE's Kate
 
 -- The test file for literate Haskell can be easily created like this:
 --  cat highlight.hs | sed -e "s|^|> |" -e "s|> -- ||" -e "s|^> $||" > highlight.lhs
 -- You only have to manually edit the multi-line comment below.
 
 -- this is a single-line comment
 
 {- this is a multi-line comment
 
 Things like "a string" or a 'c' character shouldn't be highlighted in here.
 
 -- I could even start a new
 -- one-line comment.
 
 -}
 
 import Prelude --
 import Prelude ---
 
 -- a data definition
 
 data Tree a = Br (Tree a) (Tree a) | Leaf a | Nil deriving (Show, Eq)
 
 
 -- function definition, "funnyfunction::", "Integer", "Int", "Bool" should be highlighted
 
 funnyfunction::(Tree a)=>[a]->Integer->Int->Bool
 
 
 -- strings and chars
 -- first line of function definitions (type declaration) should be highlighted
 
 strangefunction::Int->String
 strangefunction 1 = "hello"
 strangefunction 2 = "what's up"
 strangefunction 3 = (strangefunction 1) ++ ", " ++ (strangefunction 2)
 strangefunction 4 = 'a':'b':'c':'"':[] -- will return "abc"
 strangefunction 5 = '\n':[]
 strangefunction 6 = '\invalidhaskell':[]
 
 -- function name including the single quote character
 -- and infix operator (`div`)
 
 justtesting'::Int->Int
 justtesting' 2 = 2+1
 justtesting' 9 = 7 `div` 2
 
 -- same definition as above, slightly different function name and a couple more whitespaces
 
 justtesting''   ::      Int -> Int
 justtesting''   2 = 3
 justtesting''   9       =   3 + 9 - 9
 
 -- the following lines are copied out of Haskell's "Prelude.hs"
 
 infixl 7  *, /, `quot`, `rem`, `div`, `mod`, :%, %
 
 
 -- everything highlighted except the "a"
 
 class Bounded a where
     minBound, maxBound :: a
 
 class (Num a, Ord a) => Real a where
     toRational     :: a -> Rational
 
 -- finally, some keyword lists
 
 -- keywords
 
 case, class, data, deriving, do, else, family, forall, if, in, infixl, infixr,
 instance, let, module, of, pattern, primitive,
 then, type, where
 
 -- infix operators
 
 quot, rem, div, mod, elem, notElem, seq
 
 -- this stuff is not handled yet
 
 !!, %, &&, $!, $, *, **, -,., /=, <, <=, =<<, ==, >, >=, >>, >>=, ^, ^^, ++, ||
 
 -- functions
 
 abs, acos, acosh, all, and, any, appendFile,
 approxRational, asTypeOf, asin, asinh, atan, atan2, atanh, basicIORun,
 break, catch, ceiling, chr, compare, concat, concatMap, const, cos, cosh,
 curry, cycle, decodeFloat, denominator, digitToInt, div, divMod, drop,
 dropWhile, either, elem, encodeFloat, enumFrom, enumFromThen,
 enumFromThenTo, enumFromTo, error, even, exp, exponent, fail, filter, flip,
 floatDigits, floatRadix, floatRange, floor, fmap, foldl, foldl1, foldr,
 foldr1, fromDouble, fromEnum, fromInt, fromInteger, fromIntegral,
 fromRational, fst, gcd, getChar, getContents, getLine, head, id, inRange,
 index, init, intToDigit, interact, ioError, isAlpha, isAlphaNum, isAscii,
 isControl, isDenormalized, isDigit, isHexDigit, isIEEE, isInfinite, isLower,
 isNaN, isNegativeZero, isOctDigit, isPrint, isSpace, isUpper, iterate, last,
 lcm, length, lex, lexDigits, lexLitChar, lines, log, logBase, lookup, map,
 mapM, mapM_, max, maxBound, maximum, maybe, min, minBound, minimum, mod,
 negate, not, notElem, null, numerator, odd, or, ord, otherwise, pi, pred,
 primExitWith, print, product, properFraction, putChar, putStr, putStrLn,
 quot, quotRem, range, rangeSize, read, readDec, readFile, readFloat,
 readHex, readIO, readInt, readList, readLitChar, readLn, readOct, readParen,
 readSigned, reads, readsPrec, realToFrac, recip, rem, repeat, replicate,
 return, reverse, round, scaleFloat, scanl, scanl1, scanr, scanr1, seq,
 sequence, sequence_, show, showChar, showInt, showList, showLitChar,
 showParen, showSigned, showString, shows, showsPrec, significand, signum,
 sin, sinh, snd, span, splitAt, sqrt, subtract, succ, sum, tail, take,
 either, elem, encodeFloat, enumFrom, enumFromThen, enumFromThenTo,
 enumFromTo, error, even, exp, exponent, fail, filter, flip, floatDigits,
 floatRadix, floatRange, floor, fmap, takeWhile, tan, tanh, threadToIOResult,
 toEnum, toInt, toInteger, toLower, toRational, toUpper, truncate, uncurry,
 undefined, unlines, until, unwords, unzip, unzip3, userError, words,
 writeFile, zip, zip3, zipWith, zipWith3
 
 -- type constructors
 
 Bool, Char, Double, Either, FilePath, Float, IO, IOError, Integer, Int, Maybe,
 Ordering, Rational, Ratio, ReadS, ShowS, String
 
 -- classes
 
 Bounded, Enum, Eq, Floating, Fractional, Functor, Integral, Ix, Monad, Num, Ord, Read, RealFloat,
 RealFrac, Real, Show
 
 -- data constructors
 
 EQ, False, GT, Just, LT, Left, Nothing, Right, True
 
 -- promoted data constructors
 
 'True
 
 -- pragma with compiler flags
 
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 -- multiline pragma with language extensions
 
 {-# LANGUAGE OverlappingInstances,
              BangPatterns
 #-}