ParseOk (Module (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 2 1 6 1, srcInfoPoints = [SrcSpan "tests/examples/EqualityConstraints1.hs" 2 1 2 1,SrcSpan "tests/examples/EqualityConstraints1.hs" 4 1 4 1,SrcSpan "tests/examples/EqualityConstraints1.hs" 4 1 4 1,SrcSpan "tests/examples/EqualityConstraints1.hs" 4 1 4 1,SrcSpan "tests/examples/EqualityConstraints1.hs" 5 1 5 1,SrcSpan "tests/examples/EqualityConstraints1.hs" 6 1 6 1,SrcSpan "tests/examples/EqualityConstraints1.hs" 6 1 6 1]}) Nothing [LanguagePragma (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 2 1 2 23, srcInfoPoints = [SrcSpan "tests/examples/EqualityConstraints1.hs" 2 1 2 13,SrcSpan "tests/examples/EqualityConstraints1.hs" 2 20 2 23]}) [Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 2 14 2 19, srcInfoPoints = []}) "GADTs"]] [] [TypeSig (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 1 4 20, srcInfoPoints = [SrcSpan "tests/examples/EqualityConstraints1.hs" 4 5 4 7]}) [Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 1 4 4, srcInfoPoints = []}) "one"] (TyForall (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 8 4 20, srcInfoPoints = []}) Nothing (Just (CxSingle (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 8 4 15, srcInfoPoints = [SrcSpan "tests/examples/EqualityConstraints1.hs" 4 16 4 18]}) (EqualP (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 8 4 15, srcInfoPoints = [SrcSpan "tests/examples/EqualityConstraints1.hs" 4 10 4 11]}) (TyVar (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 8 4 9, srcInfoPoints = []}) (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 8 4 9, srcInfoPoints = []}) "a")) (TyCon (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 12 4 15, srcInfoPoints = []}) (UnQual (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 12 4 15, srcInfoPoints = []}) (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 12 4 15, srcInfoPoints = []}) "Int")))))) (TyVar (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 19 4 20, srcInfoPoints = []}) (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 4 19 4 20, srcInfoPoints = []}) "a"))),PatBind (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 5 1 5 8, srcInfoPoints = []}) (PVar (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 5 1 5 4, srcInfoPoints = []}) (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 5 1 5 4, srcInfoPoints = []}) "one")) (UnGuardedRhs (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 5 5 5 8, srcInfoPoints = [SrcSpan "tests/examples/EqualityConstraints1.hs" 5 5 5 6]}) (Lit (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 5 7 5 8, srcInfoPoints = []}) (Int (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/EqualityConstraints1.hs" 5 7 5 8, srcInfoPoints = []}) 1 "1"))) Nothing],[Comment False (SrcSpan "tests/examples/EqualityConstraints1.hs" 1 1 1 63) " https://github.com/haskell-suite/haskell-src-exts/issues/91"])