/usr/share/doc/libhugs-haxml-bundled/examples/HaXml/Types.hs is in libhugs-haxml-bundled 98.200609.21-5.3ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | module DTypes where
import Text.XML.HaXml.XmlContent hiding (Name)
-- data types for a simple test program
data Person = Person Name Email [Rating] Version {-! derive : XmlContent !-}
newtype Name = Name String {-! derive : XmlContent !-}
newtype Email = Email String {-! derive : XmlContent !-}
newtype Version = Version Int {-! derive : XmlContent !-}
data Rating = Rating SubjectID Interest Skill {-! derive : XmlContent !-}
newtype SubjectID = SubjectID Int {-! derive : XmlContent !-}
newtype Interest = Interest Score {-! derive : XmlContent !-}
newtype Skill = Skill Score {-! derive : XmlContent !-}
data Score = ScoreNone | ScoreLow | ScoreMedium | ScoreHigh {-! derive : XmlContent !-}
|