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 " ] )