haskell-src-exts-1.24.0: tests/examples/ForeignImport.hs.parser.golden
ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 3 1 5 1
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 3 1 3 1
, SrcSpan "tests/examples/ForeignImport.hs" 3 1 3 1
, SrcSpan "tests/examples/ForeignImport.hs" 3 1 3 1
, SrcSpan "tests/examples/ForeignImport.hs" 5 1 5 1
, SrcSpan "tests/examples/ForeignImport.hs" 5 1 5 1
]
}
Nothing
[]
[]
[ ForImp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 3 1 4 55
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 3 1 3 8
, SrcSpan "tests/examples/ForeignImport.hs" 3 9 3 15
, SrcSpan "tests/examples/ForeignImport.hs" 3 29 3 42
, SrcSpan "tests/examples/ForeignImport.hs" 4 14 4 16
]
}
(CCall
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 3 16 3 21
, srcInfoPoints = []
})
(Just
(PlayRisky
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 3 22 3 28
, srcInfoPoints = []
}))
(Just "getProgArgv")
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 2 4 13
, srcInfoPoints = []
}
"getProgArgv")
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 17 4 55
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 4 26 4 28 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 17 4 25
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 17 4 20
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 17 4 20
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 17 4 20
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 21 4 25
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 21 4 25
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 21 4 25
, srcInfoPoints = []
}
"CInt"))))
(TyFun
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 29 4 55
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 4 47 4 49 ]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 29 4 46
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 29 4 32
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 29 4 32
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 29 4 32
, srcInfoPoints = []
}
"Ptr")))
(TyParen
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 33 4 46
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 4 33 4 34
, SrcSpan "tests/examples/ForeignImport.hs" 4 45 4 46
]
}
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 34 4 45
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 34 4 37
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 34 4 37
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ForeignImport.hs" 4 34 4 37
, srcInfoPoints = []
}
"Ptr")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 38 4 45
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 38 4 45
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/ForeignImport.hs" 4 38 4 45
, srcInfoPoints = []
}
"CString"))))))
(TyApp
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 50 4 55
, srcInfoPoints = []
}
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 50 4 52
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 50 4 52
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 50 4 52
, srcInfoPoints = []
}
"IO")))
(TyCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 53 4 55
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 4 53 4 54
, SrcSpan "tests/examples/ForeignImport.hs" 4 54 4 55
]
}
(Special
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 53 4 55
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 4 53 4 54
, SrcSpan "tests/examples/ForeignImport.hs" 4 54 4 55
]
}
(UnitCon
SrcSpanInfo
{ srcInfoSpan = SrcSpan "tests/examples/ForeignImport.hs" 4 53 4 55
, srcInfoPoints =
[ SrcSpan "tests/examples/ForeignImport.hs" 4 53 4 54
, SrcSpan "tests/examples/ForeignImport.hs" 4 54 4 55
]
}))))))
]
, [ Comment
True
(SrcSpan "tests/examples/ForeignImport.hs" 1 1 2 67)
" If compiled without ForeignFunctionInterface (part of Haskell2010),\n it complains not about FFI but about missing TemplateHaskell "
]
)