ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 14 1 57 1
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 14 1 14 1
, SrcSpan "tests/examples/HaddockComments.hs" 14 1 14 1
, SrcSpan "tests/examples/HaddockComments.hs" 17 1 17 1
, SrcSpan "tests/examples/HaddockComments.hs" 21 1 21 1
, SrcSpan "tests/examples/HaddockComments.hs" 25 1 25 1
, SrcSpan "tests/examples/HaddockComments.hs" 27 1 27 1
, SrcSpan "tests/examples/HaddockComments.hs" 29 1 29 1
, SrcSpan "tests/examples/HaddockComments.hs" 35 1 35 1
, SrcSpan "tests/examples/HaddockComments.hs" 36 1 36 1
, SrcSpan "tests/examples/HaddockComments.hs" 38 1 38 1
, SrcSpan "tests/examples/HaddockComments.hs" 46 1 46 1
, SrcSpan "tests/examples/HaddockComments.hs" 57 1 57 1
, SrcSpan "tests/examples/HaddockComments.hs" 57 1 57 1
]
}
(Just
(ModuleHead
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 14 1 14 29
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 14 1 14 7
, SrcSpan "tests/examples/HaddockComments.hs" 14 24 14 29
]
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 14 8 14 23
, srcInfoPoints = []
}
"HaddockComments")
Nothing
Nothing))
[]
[]
[ TypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 17 1 20 12
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 18 4 18 6 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 17 1 17 5
, srcInfoPoints = []
}
"fun1"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 18 7 20 12
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 19 4 19 6 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 18 7 18 10
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 18 7 18 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 18 7 18 10
, srcInfoPoints = []
}
"Int")))
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 19 7 20 12
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 20 4 20 6 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 19 7 19 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 19 7 19 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 19 7 19 12
, srcInfoPoints = []
}
"Float")))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 7 20 12
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 7 20 9
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 7 20 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 7 20 9
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 10 20 12
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 20 10 20 11
, SrcSpan "tests/examples/HaddockComments.hs" 20 11 20 12
]
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 10 20 12
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 20 10 20 11
, SrcSpan "tests/examples/HaddockComments.hs" 20 11 20 12
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 20 10 20 12
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 20 10 20 11
, SrcSpan "tests/examples/HaddockComments.hs" 20 11 20 12
]
}))))))
, PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 1 21 17
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 1 21 5
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 1 21 5
, srcInfoPoints = []
}
"fun1"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 6 21 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 21 6 21 7 ]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 8 21 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 8 21 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 21 8 21 17
, srcInfoPoints = []
}
"undefined"))))
Nothing
, PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 1 25 17
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 1 25 5
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 1 25 5
, srcInfoPoints = []
}
"fun2"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 6 25 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 25 6 25 7 ]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 8 25 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 8 25 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 25 8 25 17
, srcInfoPoints = []
}
"undefined"))))
Nothing
, TypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 1 27 19
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 27 6 27 8 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 1 27 5
, srcInfoPoints = []
}
"fun3"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 9 27 19
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 27 13 27 15 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 9 27 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 9 27 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 9 27 12
, srcInfoPoints = []
}
"Int")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 16 27 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 16 27 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 27 16 27 19
, srcInfoPoints = []
}
"Int"))))
, PatBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 1 29 17
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 1 29 5
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 1 29 5
, srcInfoPoints = []
}
"fun3"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 6 29 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 29 6 29 7 ]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 8 29 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 8 29 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 29 8 29 17
, srcInfoPoints = []
}
"undefined"))))
Nothing
, TypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 1 35 21
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 35 8 35 10 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 1 35 7
, srcInfoPoints = []
}
"square"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 11 35 21
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 35 15 35 17 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 11 35 14
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 11 35 14
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 11 35 14
, srcInfoPoints = []
}
"Int")))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 18 35 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 18 35 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 35 18 35 21
, srcInfoPoints = []
}
"Int"))))
, FunBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 1 36 17
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 1 36 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 1 36 7
, srcInfoPoints = []
}
"square")
[ PVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 8 36 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 8 36 9
, srcInfoPoints = []
}
"x")
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 10 36 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 36 10 36 11 ]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 12 36 17
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 12 36 13
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 12 36 13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 12 36 13
, srcInfoPoints = []
}
"x")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 14 36 15
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 14 36 15
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 14 36 15
, srcInfoPoints = []
}
"*")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 16 36 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 16 36 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 36 16 36 17
, srcInfoPoints = []
}
"x")))))
Nothing
]
, ClassDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 38 1 42 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 38 1 38 6
, SrcSpan "tests/examples/HaddockComments.hs" 38 11 38 16
, SrcSpan "tests/examples/HaddockComments.hs" 40 4 40 4
, SrcSpan "tests/examples/HaddockComments.hs" 42 4 42 4
, SrcSpan "tests/examples/HaddockComments.hs" 46 1 46 0
]
}
Nothing
(DHApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 38 7 38 10
, srcInfoPoints = []
}
(DHead
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 38 7 38 8
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 38 7 38 8
, srcInfoPoints = []
}
"C"))
(UnkindedVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 38 9 38 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 38 9 38 10
, srcInfoPoints = []
}
"a")))
[]
(Just
[ ClsDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 4 40 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 40 6 40 8 ]
}
(TypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 4 40 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 40 6 40 8 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 4 40 5
, srcInfoPoints = []
}
"f"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 9 40 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 40 11 40 13 ]
}
(TyVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 9 40 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 9 40 10
, srcInfoPoints = []
}
"a"))
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 14 40 17
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 14 40 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 40 14 40 17
, srcInfoPoints = []
}
"Int")))))
, ClsDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 4 42 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 42 6 42 8 ]
}
(TypeSig
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 4 42 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 42 6 42 8 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 4 42 5
, srcInfoPoints = []
}
"g"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 9 42 17
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 42 13 42 15 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 9 42 12
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 9 42 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 9 42 12
, srcInfoPoints = []
}
"Int")))
(TyVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 16 42 17
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 42 16 42 17
, srcInfoPoints = []
}
"a"))))
])
, DataDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 46 1 56 10
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 46 13 46 14
, SrcSpan "tests/examples/HaddockComments.hs" 55 3 55 4
]
}
(DataType
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 46 1 46 5
, srcInfoPoints = []
})
Nothing
(DHead
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 46 6 46 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 46 6 46 12
, srcInfoPoints = []
}
"MyData"))
[ QualConDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 48 3 54 6
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 49 5 49 6
, SrcSpan "tests/examples/HaddockComments.hs" 52 5 52 6
, SrcSpan "tests/examples/HaddockComments.hs" 53 5 53 6
, SrcSpan "tests/examples/HaddockComments.hs" 54 5 54 6
]
}
Nothing
Nothing
(RecDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 48 3 54 6
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 49 5 49 6
, SrcSpan "tests/examples/HaddockComments.hs" 52 5 52 6
, SrcSpan "tests/examples/HaddockComments.hs" 53 5 53 6
, SrcSpan "tests/examples/HaddockComments.hs" 54 5 54 6
]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 48 3 48 8
, srcInfoPoints = []
}
"Cons1")
[ FieldDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 49 7 49 25
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 49 19 49 21 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 49 7 49 18
, srcInfoPoints = []
}
"cons1Field1"
]
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 49 22 49 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 49 22 49 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 49 22 49 25
, srcInfoPoints = []
}
"Int")))
, FieldDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 52 7 52 25
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 52 19 52 21 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 52 7 52 18
, srcInfoPoints = []
}
"cons1Field2"
]
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 52 22 52 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 52 22 52 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 52 22 52 25
, srcInfoPoints = []
}
"Int")))
, FieldDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 53 7 53 28
, srcInfoPoints =
[ SrcSpan "tests/examples/HaddockComments.hs" 53 19 53 21 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 53 7 53 18
, srcInfoPoints = []
}
"cons1Field3"
]
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 53 22 53 28
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 53 22 53 28
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 53 22 53 28
, srcInfoPoints = []
}
"String")))
])
, QualConDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 55 5 56 10
, srcInfoPoints = []
}
Nothing
Nothing
(ConDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 55 5 56 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 55 5 55 10
, srcInfoPoints = []
}
"Cons2")
[ TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 56 7 56 10
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 56 7 56 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/HaddockComments.hs" 56 7 56 10
, srcInfoPoints = []
}
"Int"))
])
]
[]
]
, [ Comment
True
(SrcSpan "tests/examples/HaddockComments.hs" 1 1 13 3)
"|\nModule : W\nDescription : Short description\nCopyright : (c) Some Guy, 2013\n Someone Else, 2014\nLicense : GPL-3\nMaintainer : sample@email.com\nStability : experimental\nPortability : POSIX\n\nHere is a longer description of this module, containing some\ncommentary with @some markup@.\n"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 16 1 16 23)
" | Function1 comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 18 16 18 39)
" ^ The 'Int' argument"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 19 16 19 41)
" ^ The 'Float' argument"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 20 16 20 37)
" ^ The return value"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 24 1 24 25)
" not a haddock comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 28 1 28 23)
" ^ Function3 comment"
, Comment
True
(SrcSpan "tests/examples/HaddockComments.hs" 31 1 34 3)
"|\n The 'square' function squares an integer.\n It takes one argument, of type 'Int'.\n"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 36 18 36 28)
" beware!"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 39 4 39 53)
" | This is the documentation for the 'f' method"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 41 4 41 53)
" | This is the documentation for the 'g' method"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 44 1 44 23)
" | Data type comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 45 1 45 22)
" With a second line"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 47 3 47 28)
" | Constructor1 comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 49 26 49 60)
" ^ Constructor 1 field 1 comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 50 26 50 47)
" spanning two lines"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 51 7 51 41)
" | Constructor 1 field 2 comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 53 29 53 53)
" Not a haddock comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 55 11 55 37)
" ^ Constructor 2 comment"
, Comment
False
(SrcSpan "tests/examples/HaddockComments.hs" 56 11 56 20)
" ^ Last"
]
)