@@ -67,10 +67,10 @@ data ListMarker = NoMarker
67 deriving (Show, Read, Eq, Ord)
67 deriving (Show, Read, Eq, Ord)
69listMarkerToId :: ListMarker -> String
69listMarkerToId :: ListMarker -> String
70−listMarkerToId NoMarker = "0"
70+listMarkerToId NoMarker = "990"
71−listMarkerToId BulletMarker = "1"
71+listMarkerToId BulletMarker = "991"
72listMarkerToId (NumberMarker sty delim n) =
72listMarkerToId (NumberMarker sty delim n) =
73− styNum : delimNum : show n
73+ '9' : '9' : styNum : delimNum : show n
74 where styNum = case sty of
74 where styNum = case sty of
75 DefaultStyle -> '2'
75 DefaultStyle -> '2'
76 Example -> '3'
76 Example -> '3'