ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 1 1 7 1 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 1 1 1 1 , SrcSpan "tests/examples/Unpack.hs" 3 1 3 1 , SrcSpan "tests/examples/Unpack.hs" 3 1 3 1 , SrcSpan "tests/examples/Unpack.hs" 3 1 3 1 , SrcSpan "tests/examples/Unpack.hs" 6 1 6 1 , SrcSpan "tests/examples/Unpack.hs" 7 1 7 1 , SrcSpan "tests/examples/Unpack.hs" 7 1 7 1 ] } Nothing [ LanguagePragma SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 1 1 1 23 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 1 1 1 13 , SrcSpan "tests/examples/Unpack.hs" 1 20 1 23 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 1 14 1 19 , srcInfoPoints = [] } "GADTs" ] ] [] [ GDataDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 1 6 0 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 3 18 3 23 , SrcSpan "tests/examples/Unpack.hs" 4 9 4 9 , SrcSpan "tests/examples/Unpack.hs" 6 1 6 0 ] } (DataType SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 1 3 5 , srcInfoPoints = [] }) Nothing (DHApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 6 3 17 , srcInfoPoints = [] } (DHApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 6 3 15 , srcInfoPoints = [] } (DHead SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 6 3 13 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 6 3 13 , srcInfoPoints = [] } "CmmNode")) (UnkindedVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 14 3 15 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 14 3 15 , srcInfoPoints = [] } "e"))) (UnkindedVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 16 3 17 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 3 16 3 17 , srcInfoPoints = [] } "x"))) Nothing [ GadtDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 9 4 55 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 4 18 4 20 ] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 9 4 17 , srcInfoPoints = [] } "CmmEntry") Nothing Nothing Nothing (TyFun SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 21 4 55 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 4 41 4 43 ] } (TyBang SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 21 4 40 , srcInfoPoints = [] } (BangedTy SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 36 4 37 , srcInfoPoints = [] }) (Unpack SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 21 4 35 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 4 21 4 31 , SrcSpan "tests/examples/Unpack.hs" 4 32 4 35 ] }) (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 37 4 40 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 37 4 40 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 37 4 40 , srcInfoPoints = [] } "Int")))) (TyApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 44 4 55 , srcInfoPoints = [] } (TyApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 44 4 53 , srcInfoPoints = [] } (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 44 4 51 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 44 4 51 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 44 4 51 , srcInfoPoints = [] } "CmmNode"))) (TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 52 4 53 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 52 4 53 , srcInfoPoints = [] } "e"))) (TyVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 54 4 55 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 4 54 4 55 , srcInfoPoints = [] } "x")))) ] [] , DataDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 1 6 33 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 6 9 6 10 ] } (DataType SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 1 6 5 , srcInfoPoints = [] }) Nothing (DHead SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 6 6 8 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 6 6 8 , srcInfoPoints = [] } "UI")) [ QualConDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 11 6 33 , srcInfoPoints = [] } Nothing Nothing (ConDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 11 6 33 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 11 6 13 , srcInfoPoints = [] } "UI") [ TyBang SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 14 6 33 , srcInfoPoints = [] } (BangedTy SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 29 6 30 , srcInfoPoints = [] }) (Unpack SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 14 6 28 , srcInfoPoints = [ SrcSpan "tests/examples/Unpack.hs" 6 14 6 24 , SrcSpan "tests/examples/Unpack.hs" 6 25 6 28 ] }) (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 30 6 33 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 30 6 33 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/Unpack.hs" 6 30 6 33 , srcInfoPoints = [] } "Int"))) ]) ] [] ] , [] )