ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 1 7 1 , srcInfoPoints = [ SrcSpan "tests/examples/CxtWhitespace.hs" 2 1 2 1 , SrcSpan "tests/examples/CxtWhitespace.hs" 2 1 2 1 , SrcSpan "tests/examples/CxtWhitespace.hs" 2 1 2 1 , SrcSpan "tests/examples/CxtWhitespace.hs" 5 1 5 1 , SrcSpan "tests/examples/CxtWhitespace.hs" 7 1 7 1 , SrcSpan "tests/examples/CxtWhitespace.hs" 7 1 7 1 ] } Nothing [] [] [ InstDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 1 2 25 , srcInfoPoints = [ SrcSpan "tests/examples/CxtWhitespace.hs" 2 1 2 9 ] } Nothing (IRule SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 10 2 25 , srcInfoPoints = [] } Nothing (Just (CxSingle SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 10 2 20 , srcInfoPoints = [ SrcSpan "tests/examples/CxtWhitespace.hs" 2 10 2 11 , SrcSpan "tests/examples/CxtWhitespace.hs" 2 16 2 17 , SrcSpan "tests/examples/CxtWhitespace.hs" 2 18 2 20 ] } (ParenA SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 10 2 20 , srcInfoPoints = [ SrcSpan "tests/examples/CxtWhitespace.hs" 2 10 2 11 , SrcSpan "tests/examples/CxtWhitespace.hs" 2 16 2 17 , SrcSpan "tests/examples/CxtWhitespace.hs" 2 18 2 20 ] } (ClassA SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 12 2 16 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 12 2 14 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 12 2 14 , srcInfoPoints = [] } "Eq")) [ TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 15 2 16 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 15 2 16 , srcInfoPoints = [] } "h") ])))) (IHApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 21 2 25 , srcInfoPoints = [] } (IHCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 21 2 23 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 21 2 23 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 21 2 23 , srcInfoPoints = [] } "Eq"))) (TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 24 2 25 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 2 24 2 25 , srcInfoPoints = [] } "h")))) Nothing , InstDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 1 5 31 , srcInfoPoints = [ SrcSpan "tests/examples/CxtWhitespace.hs" 5 1 5 9 ] } Nothing (IRule SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 10 5 31 , srcInfoPoints = [] } Nothing (Just (CxTuple SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 10 5 26 , srcInfoPoints = [ SrcSpan "tests/examples/CxtWhitespace.hs" 5 10 5 11 , SrcSpan "tests/examples/CxtWhitespace.hs" 5 16 5 17 , SrcSpan "tests/examples/CxtWhitespace.hs" 5 22 5 23 , SrcSpan "tests/examples/CxtWhitespace.hs" 5 24 5 26 ] } [ ClassA SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 12 5 16 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 12 5 14 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 12 5 14 , srcInfoPoints = [] } "Eq")) [ TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 15 5 16 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 15 5 16 , srcInfoPoints = [] } "h") ] , ClassA SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 18 5 22 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 18 5 20 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 18 5 20 , srcInfoPoints = [] } "Eq")) [ TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 21 5 22 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 21 5 22 , srcInfoPoints = [] } "h") ] ])) (IHApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 27 5 31 , srcInfoPoints = [] } (IHCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 27 5 29 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 27 5 29 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 27 5 29 , srcInfoPoints = [] } "Eq"))) (TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 30 5 31 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/CxtWhitespace.hs" 5 30 5 31 , srcInfoPoints = [] } "h")))) Nothing ] , [ Comment False (SrcSpan "tests/examples/CxtWhitespace.hs" 1 1 1 13) " is not ok" , Comment False (SrcSpan "tests/examples/CxtWhitespace.hs" 4 1 4 9) " is ok" ] )