ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 1 1 7 1
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 1 1 1 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 2 1 2 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 3 1 3 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 5 1 5 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 5 1 5 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 5 1 5 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 7 1 7 1
, SrcSpan "tests/examples/ConstraintKinds2.hs" 7 1 7 1
]
}
Nothing
[ LanguagePragma
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 1 1 1 33
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 1 1 1 13
, SrcSpan "tests/examples/ConstraintKinds2.hs" 1 30 1 33
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 1 14 1 29
, srcInfoPoints = []
}
"ConstraintKinds"
]
, LanguagePragma
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 2 1 2 23
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 2 1 2 13
, SrcSpan "tests/examples/ConstraintKinds2.hs" 2 20 2 23
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 2 14 2 19
, srcInfoPoints = []
}
"GADTs"
]
, LanguagePragma
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 3 1 3 28
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 3 1 3 13
, SrcSpan "tests/examples/ConstraintKinds2.hs" 3 25 3 28
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 3 14 3 24
, srcInfoPoints = []
}
"RankNTypes"
]
]
[]
[ GDataDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 1 7 0
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 5 13 5 18
, SrcSpan "tests/examples/ConstraintKinds2.hs" 6 5 6 5
, SrcSpan "tests/examples/ConstraintKinds2.hs" 7 1 7 0
]
}
(DataType
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 1 5 5
, srcInfoPoints = []
})
Nothing
(DHApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 6 5 12
, srcInfoPoints = []
}
(DHead
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 6 5 10
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 6 5 10
, srcInfoPoints = []
}
"Dict"))
(UnkindedVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 11 5 12
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 5 11 5 12
, srcInfoPoints = []
}
"p")))
Nothing
[ GadtDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 5 6 24
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 6 10 6 12 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 5 6 9
, srcInfoPoints = []
}
"Dict")
Nothing
(TyForall
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 13 6 24
, srcInfoPoints = []
}
Nothing
(Just
(CxSingle
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 13 6 17
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 6 15 6 17 ]
}
(AppA
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 13 6 17
, srcInfoPoints =
[ SrcSpan "tests/examples/ConstraintKinds2.hs" 6 15 6 17 ]
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 13 6 14
, srcInfoPoints = []
}
"p")
[])))
(TyApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 18 6 24
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 18 6 22
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 18 6 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 18 6 22
, srcInfoPoints = []
}
"Dict")))
(TyVar
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 23 6 24
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ConstraintKinds2.hs" 6 23 6 24
, srcInfoPoints = []
}
"p"))))
]
[]
]
, []
)