ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 1 1 6 1
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 1 1 1 1
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 1 3 1
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 1 3 1
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 1 5 1
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 6 1 6 1
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 6 1 6 1
]
}
(Just
(ModuleHead
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 1 3 27
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 1 3 7
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 22 3 27
]
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 8 3 11
, srcInfoPoints = []
}
"Foo")
Nothing
(Just
(ExportSpecList
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 11 3 21
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 11 3 12
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 20 3 21
]
}
[ EAbs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 12 3 20
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 12 3 16
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 17 3 20
]
}
(TypeNamespace
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 12 3 16
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 12 3 16 ]
})
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 17 3 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 3 17 3 20
, srcInfoPoints = []
}
"Str"))
]))))
[ LanguagePragma
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 1 1 1 36
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 1 1 1 13
, SrcSpan "tests/examples/ExplicitNamespaces3.hs" 1 33 1 36
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 1 14 1 32
, srcInfoPoints = []
}
"ExplicitNamespaces"
]
]
[]
[ DataDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 1 5 15
, srcInfoPoints =
[ SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 10 5 11 ]
}
(DataType
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 1 5 5
, srcInfoPoints = []
})
Nothing
(DHead
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 6 5 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 6 5 9
, srcInfoPoints = []
}
"Str"))
[ QualConDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 12 5 15
, srcInfoPoints = []
}
Nothing
Nothing
(ConDecl
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 12 5 15
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ExplicitNamespaces3.hs" 5 12 5 15
, srcInfoPoints = []
}
"Str")
[])
]
[]
]
, []
)