<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE language SYSTEM "language.dtd">
<language name="Literate Haskell" version="1.00" kateversion="2.0" section="Sources" extensions="*.lhs" mimetype="text/x-literate-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="6" lineEndContext="0">
			        <RegExpr attribute="0" context="1" String="^>"/>
			</context>
                        <context attribute="0" lineEndContext="0">
                                <keyword attribute="1" context="1" String="keywords"/>
                                <keyword attribute="2" context="1" String="types"/>
				<RegExpr attribute="0" context="1" String="[a-z][A-Za-z0-9_']*"/>
				<RegExpr attribute="2" context="1" String="[A-Z][A-Za-z0-9_']*"/>
				<Float attribute="3" context="1"/>
                                <Int attribute="3" context="1"/>
                                <DetectChar attribute="4" context="2" char="&quot;"/>
                                <Detect2Chars attribute="5" context="3" char="{" char1="-" />
                                <Detect2Chars attribute="5" context="4" char="-" char1="-"/>
                        </context>
                        <context attribute="4" lineEndContext="0">
                                <DetectChar attribute="4" context="1" char="&quot;"/>
                        </context>
                        <context attribute="5" lineEndContext="5">
                                <Detect2Chars attribute="6" context="1" char="-" char1="}"/>
                        </context>
                        <context attribute="5" lineEndContext="0"/>
                        <context attribute="6" lineEndContext="5">
			        <RegExpr attribute="6" context="3" String="^>"/>
                        </context>
                </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" />
                        <itemData name="Literate Comment" defStyleNum="dsOthers" />
                </itemDatas>
  </highlighting>
  <general>
    <keywords casesensitive="1" />
    <comments>
      <comment name="singleLine" start="--" />
      <comment name="multiLine" start="{-" end="-}" />
    </comments>
  </general>
</language>
