<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE language SYSTEM "language.dtd">
<language name="Haskell" version="1.00" kateversion="2.0" section="Sources" extensions="*.hs" mimetype="text/x-haskell">
        <highlighting>
                <list name="keywords">
                        <item> case </item>
                        <item> class </item>
                        <item> data </item>
                        <item> default </item>
                        <item> deriving </item>
                        <item> do </item>
                        <item> else </item>
                        <item> if </item>
                        <item> import </item>
                        <item> in </item>
                        <item> infix </item>
                        <item> infixl </item>
                        <item> infixr </item>
                        <item> instance </item>
                        <item> let </item>
                        <item> module </item>
                        <item> newtype </item>
                        <item> of </item>
                        <item> then </item>
                        <item> type </item>
                        <item> where </item>
                </list>
                <list name="types">
                        <item> Bool </item>
                        <item> Char </item>
                        <item> Double </item>
                        <item> Float  </item>
                        <item> Int </item>
                        <item> Integer </item>
                        <item> Ordering </item>
                        <item> IO </item>
                        <item> Maybe </item>
                        <item> Either </item>
                        <item> Rational </item>
                        <item> String </item>
                        <item> IOError </item>
                        <item> FilePath </item>
                        <item> ShowS </item>
                        <item> ReadS </item>
                </list>
                <contexts>
                        <context attribute="0" lineEndContext="0">
                                <keyword attribute="1" context="0" String="keywords"/>
                                <keyword attribute="2" context="0" String="types"/>
				<RegExpr attribute="0" context="0" String="[a-z][A-Za-z0-9_']*"/>
				<RegExpr attribute="2" context="0" String="[A-Z][A-Za-z0-9_']*"/>
				<Float attribute="3" context="0"/>
                                <Int attribute="3" context="0"/>
                                <DetectChar attribute="4" context="1" char="&quot;"/>
                                <Detect2Chars attribute="5" context="2" char="{" char1="-" />
                                <Detect2Chars attribute="5" context="3" char="-" char1="-"/>
                        </context>
                        <context attribute="4" lineEndContext="0">
                                <DetectChar attribute="4" context="0" char="&quot;"/>
                        </context>
                        <context attribute="5" lineEndContext="2">
                                <Detect2Chars attribute="6" context="0" char="-" char1="}"/>
                        </context>
                        <context attribute="5" lineEndContext="0"/>
                </contexts>
                <itemDatas>
                        <itemData name="Normal Text" defStyleNum="dsNormal" />
                        <itemData name="Keyword"     defStyleNum="dsKeyword" />
                        <itemData name="Conid"       defStyleNum="dsDataType"/>
                        <itemData name="Number"      defStyleNum="dsDecVal" />
                        <itemData name="String"      defStyleNum="dsString" />
                        <itemData name="Comment"     defStyleNum="dsComment" />
                </itemDatas>
  </highlighting>
  <general>
    <keywords casesensitive="1" />
    <comments>
      <comment name="singleLine" start="--" />
      <comment name="multiLine" start="{-" end="-}" />
    </comments>
  </general>
</language>
