ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 1 1 9 1
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 1 1 1 1
, SrcSpan "tests/examples/BangPatterns.hs" 2 1 2 1
, SrcSpan "tests/examples/BangPatterns.hs" 2 1 2 1
, SrcSpan "tests/examples/BangPatterns.hs" 4 1 4 1
, SrcSpan "tests/examples/BangPatterns.hs" 5 1 5 1
, SrcSpan "tests/examples/BangPatterns.hs" 9 1 9 1
, SrcSpan "tests/examples/BangPatterns.hs" 9 1 9 1
]
}
(Just
(ModuleHead
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 2 1 2 26
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 2 1 2 7
, SrcSpan "tests/examples/BangPatterns.hs" 2 21 2 26
]
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 2 8 2 20
, srcInfoPoints = []
}
"BangPatterns")
Nothing
Nothing))
[ LanguagePragma
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 1 1 1 30
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 1 1 1 13
, SrcSpan "tests/examples/BangPatterns.hs" 1 27 1 30
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 1 14 1 26
, srcInfoPoints = []
}
"BangPatterns"
]
]
[]
[ TypeSig
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 1 4 51
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 4 15 4 17 ]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 1 4 14
, srcInfoPoints = []
}
"firstnonspace"
]
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 18 4 51
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 4 28 4 30 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 18 4 27
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 18 4 21
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 18 4 21
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 18 4 21
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 22 4 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 22 4 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 22 4 27
, srcInfoPoints = []
}
"Word8"))))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 31 4 51
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 4 35 4 37 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 31 4 34
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 31 4 34
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 31 4 34
, srcInfoPoints = []
}
"Int")))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 38 4 51
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 4 42 4 44 ]
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 38 4 41
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 38 4 41
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 38 4 41
, srcInfoPoints = []
}
"Int")))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 45 4 51
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 45 4 47
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 45 4 47
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 45 4 47
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 48 4 51
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 48 4 51
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 4 48 4 51
, srcInfoPoints = []
}
"Int")))))))
, FunBind
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 1 8 84
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 1 8 84
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 1 5 14
, srcInfoPoints = []
}
"firstnonspace")
[ PBangPat
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 15 5 19
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 16 5 19
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 16 5 19
, srcInfoPoints = []
}
"ptr"))
, PBangPat
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 20 5 22
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 21 5 22
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 21 5 22
, srcInfoPoints = []
}
"n"))
, PBangPat
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 23 5 25
, srcInfoPoints = []
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 24 5 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 5 24 5 25
, srcInfoPoints = []
}
"m"))
]
(GuardedRhss
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 5 8 84
, srcInfoPoints = []
}
[ GuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 5 6 27
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 6 5 6 6
, SrcSpan "tests/examples/BangPatterns.hs" 6 17 6 18
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 7 6 13
, srcInfoPoints = []
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 7 6 13
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 7 6 8
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 7 6 8
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 7 6 8
, srcInfoPoints = []
}
"n")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 9 6 11
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 9 6 11
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 9 6 11
, srcInfoPoints = []
}
">=")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 12 6 13
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 12 6 13
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 12 6 13
, srcInfoPoints = []
}
"m"))))
]
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 19 6 27
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 19 6 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 19 6 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 19 6 25
, srcInfoPoints = []
}
"return")))
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 26 6 27
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 6 26 6 27
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 6 26 6 27
, srcInfoPoints = []
}
"n"))))
, GuardedRhs
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 5 8 84
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 7 5 7 6
, SrcSpan "tests/examples/BangPatterns.hs" 7 17 7 18
]
}
[ Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 7 7 16
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 7 7 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 7 7 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 7 7 16
, srcInfoPoints = []
}
"otherwise")))
]
(Do
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 19 8 84
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 7 19 7 21
, SrcSpan "tests/examples/BangPatterns.hs" 7 22 7 22
, SrcSpan "tests/examples/BangPatterns.hs" 8 22 8 22
, SrcSpan "tests/examples/BangPatterns.hs" 9 1 9 0
]
}
[ Generator
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 22 7 44
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 7 24 7 26 ]
}
(PVar
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 22 7 23
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 22 7 23
, srcInfoPoints = []
}
"w"))
(App
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 7 27 7 44
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 27 7 42
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 27 7 38
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 27 7 38
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 27 7 38
, srcInfoPoints = []
}
"peekElemOff")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 39 7 42
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 39 7 42
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 39 7 42
, srcInfoPoints = []
}
"ptr"))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 43 7 44
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 43 7 44
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 7 43 7 44
, srcInfoPoints = []
}
"n"))))
, Qualifier
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 8 22 8 84
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 8 22 8 24
, SrcSpan "tests/examples/BangPatterns.hs" 8 40 8 44
, SrcSpan "tests/examples/BangPatterns.hs" 8 71 8 75
]
}
(If
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/BangPatterns.hs" 8 22 8 84
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 8 22 8 24
, SrcSpan "tests/examples/BangPatterns.hs" 8 40 8 44
, SrcSpan "tests/examples/BangPatterns.hs" 8 71 8 75
]
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 25 8 39
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 25 8 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 25 8 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 25 8 37
, srcInfoPoints = []
}
"isSpaceWord8")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 38 8 39
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 38 8 39
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 38 8 39
, srcInfoPoints = []
}
"w"))))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 45 8 70
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 45 8 68
, srcInfoPoints = []
}
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 45 8 62
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 45 8 58
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 45 8 58
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 45 8 58
, srcInfoPoints = []
}
"firstnonspace")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 59 8 62
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 59 8 62
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 59 8 62
, srcInfoPoints = []
}
"ptr"))))
(Paren
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 63 8 68
, srcInfoPoints =
[ SrcSpan "tests/examples/BangPatterns.hs" 8 63 8 64
, SrcSpan "tests/examples/BangPatterns.hs" 8 67 8 68
]
}
(InfixApp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 64 8 67
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 64 8 65
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 64 8 65
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs"
8
64
8
65
, srcInfoPoints = []
}
"n")))
(QVarOp
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 65 8 66
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 65 8 66
, srcInfoPoints = []
}
(Symbol
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs"
8
65
8
66
, srcInfoPoints = []
}
"+")))
(Lit
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 66 8 67
, srcInfoPoints = []
}
(Int
SrcSpanInfo
{ srcInfoSpan =
SrcSpan
"tests/examples/BangPatterns.hs" 8 66 8 67
, srcInfoPoints = []
}
1
"1")))))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 69 8 70
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 69 8 70
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 69 8 70
, srcInfoPoints = []
}
"m"))))
(App
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 76 8 84
, srcInfoPoints = []
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 76 8 82
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 76 8 82
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 76 8 82
, srcInfoPoints = []
}
"return")))
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 83 8 84
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 83 8 84
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/BangPatterns.hs" 8 83 8 84
, srcInfoPoints = []
}
"n")))))
])
])
Nothing
]
]
, []
)