ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 1 1 6 1
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 1 1 1 1
, SrcSpan "tests/examples/RecursiveDo.hs" 2 1 2 1
, SrcSpan "tests/examples/RecursiveDo.hs" 2 1 2 1
, SrcSpan "tests/examples/RecursiveDo.hs" 2 1 2 1
, SrcSpan "tests/examples/RecursiveDo.hs" 6 1 6 1
, SrcSpan "tests/examples/RecursiveDo.hs" 6 1 6 1
]
}
Nothing
[ LanguagePragma
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 1 1 1 29
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 1 1 1 13
, SrcSpan "tests/examples/RecursiveDo.hs" 1 26 1 29
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 1 14 1 25
, srcInfoPoints = []
}
"RecursiveDo"
]
]
[]
[ PatBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 2 1 4 27
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 2 1 2 9
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 2 1 2 9
, srcInfoPoints = []
}
"justOnes"))
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 2 10 4 27
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 2 10 2 11 ]
}
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 2 12 4 27
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 2 12 2 14
, SrcSpan "tests/examples/RecursiveDo.hs" 3 5 3 5
, SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 5
, SrcSpan "tests/examples/RecursiveDo.hs" 6 1 6 0
]
}
[ RecStmt
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 5 3 26
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 3 5 3 8
, SrcSpan "tests/examples/RecursiveDo.hs" 3 9 3 9
, SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 9 3 26
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 3 12 3 14 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 9 3 11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 9 3 11
, srcInfoPoints = []
}
"xs"))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 15 3 26
, srcInfoPoints = []
}
(Con
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 15 3 19
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 15 3 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 15 3 19
, srcInfoPoints = []
}
"Just")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 20 3 26
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 3 20 3 21
, SrcSpan "tests/examples/RecursiveDo.hs" 3 25 3 26
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 3 21 3 25
, srcInfoPoints = []
}
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 21 3 22
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 21 3 22
, srcInfoPoints = []
}
1
"1"))
(QConOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 22 3 23
, srcInfoPoints = []
}
(Special
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 22 3 23
, srcInfoPoints = []
}
(Cons
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 22 3 23
, srcInfoPoints = []
})))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 23 3 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 23 3 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 3 23 3 25
, srcInfoPoints = []
}
"xs"))))))
]
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 27
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 11
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 11
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 5 4 11
, srcInfoPoints = []
}
"return")))
(Paren
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 12 4 27
, srcInfoPoints =
[ SrcSpan "tests/examples/RecursiveDo.hs" 4 12 4 13
, SrcSpan "tests/examples/RecursiveDo.hs" 4 26 4 27
]
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 13 4 26
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 13 4 23
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 13 4 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 13 4 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 13 4 16
, srcInfoPoints = []
}
"map")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 17 4 23
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 17 4 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 17 4 23
, srcInfoPoints = []
}
"negate"))))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/RecursiveDo.hs" 4 24 4 26
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 24 4 26
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/RecursiveDo.hs" 4 24 4 26
, srcInfoPoints = []
}
"xs"))))))
]))
Nothing
]
, []
)