ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 1 1 18 1 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 1 1 1 1 , SrcSpan "tests/examples/AtSign.hs" 2 1 2 1 , SrcSpan "tests/examples/AtSign.hs" 3 1 3 1 , SrcSpan "tests/examples/AtSign.hs" 8 1 8 1 , SrcSpan "tests/examples/AtSign.hs" 8 1 8 1 , SrcSpan "tests/examples/AtSign.hs" 11 1 11 1 , SrcSpan "tests/examples/AtSign.hs" 18 1 18 1 , SrcSpan "tests/examples/AtSign.hs" 18 1 18 1 ] } (Just (ModuleHead SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 8 1 8 49 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 8 1 8 7 , SrcSpan "tests/examples/AtSign.hs" 8 44 8 49 ] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 8 8 8 43 , srcInfoPoints = [] } "Data.Array.Accelerate.CUFFT.Private") Nothing Nothing)) [ LanguagePragma SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 1 1 1 30 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 1 1 1 13 , SrcSpan "tests/examples/AtSign.hs" 1 27 1 30 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 1 14 1 26 , srcInfoPoints = [] } "TypeFamilies" ] , LanguagePragma SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 2 1 2 31 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 2 1 2 13 , SrcSpan "tests/examples/AtSign.hs" 2 28 2 31 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 2 14 2 27 , srcInfoPoints = [] } "TypeOperators" ] , LanguagePragma SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 3 1 3 34 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 3 1 3 13 , SrcSpan "tests/examples/AtSign.hs" 3 31 3 34 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 3 14 3 30 , srcInfoPoints = [] } "TypeApplications" ] ] [] [ FunBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 1 15 48 , srcInfoPoints = [] } [ Match SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 1 15 48 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 1 11 10 , srcInfoPoints = [] } "transform") [ PAsPat SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 11 11 46 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 11 15 11 16 ] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 11 11 15 , srcInfoPoints = [] } "hndl") (PParen SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 16 11 46 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 11 16 11 17 , SrcSpan "tests/examples/AtSign.hs" 11 45 11 46 ] } (PApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 17 11 45 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 17 11 23 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 17 11 23 , srcInfoPoints = [] } "Handle")) [ PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 24 11 32 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 24 11 32 , srcInfoPoints = [] } "fallback") , PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 33 11 37 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 33 11 37 , srcInfoPoints = [] } "mode") , PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 38 11 43 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 38 11 43 , srcInfoPoints = [] } "width") , PWildCard SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 44 11 45 , srcInfoPoints = [] } ])) ] (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 11 47 15 48 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 11 47 11 48 ] } (InfixApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 4 15 48 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 4 12 32 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 4 12 13 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 4 12 8 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 4 12 8 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 4 12 8 , srcInfoPoints = [] } "wrap"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 9 12 13 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 9 12 13 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 9 12 13 , srcInfoPoints = [] } "mode")))) (Paren SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 14 12 32 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 12 14 12 15 , SrcSpan "tests/examples/AtSign.hs" 12 31 12 32 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 15 12 31 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 15 12 25 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 15 12 25 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 15 12 25 , srcInfoPoints = [] } "A") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 15 12 25 , srcInfoPoints = [] } "constant"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 26 12 31 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 26 12 31 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 26 12 31 , srcInfoPoints = [] } "width")))))) (QVarOp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 33 12 34 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 33 12 34 , srcInfoPoints = [] } (Symbol SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 12 33 12 34 , srcInfoPoints = [] } "$"))) (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 13 4 15 48 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 13 4 14 69 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 13 4 13 16 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 13 4 13 16 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 13 4 13 16 , srcInfoPoints = [] } "A") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 13 4 13 16 , srcInfoPoints = [] } "foreignAcc"))) (Paren SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 7 14 69 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 14 7 14 8 , SrcSpan "tests/examples/AtSign.hs" 14 68 14 69 ] } (InfixApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 8 14 68 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 8 14 44 , srcInfoPoints = [] } (Con SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 8 14 25 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 8 14 25 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 8 14 25 , srcInfoPoints = [] } "AF") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 8 14 25 , srcInfoPoints = [] } "CUDAForeignAcc"))) (Lit SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 26 14 44 , srcInfoPoints = [] } (String SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 26 14 44 , srcInfoPoints = [] } "transformForeign" "transformForeign"))) (QVarOp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 45 14 46 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 45 14 46 , srcInfoPoints = [] } (Symbol SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 45 14 46 , srcInfoPoints = [] } "$"))) (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 47 14 68 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 47 14 63 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 47 14 63 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 47 14 63 , srcInfoPoints = [] } "transformForeign"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 64 14 68 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 64 14 68 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 14 64 14 68 , srcInfoPoints = [] } "hndl"))))))) (Paren SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 7 15 48 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 15 7 15 8 , SrcSpan "tests/examples/AtSign.hs" 15 47 15 48 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 8 15 47 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 8 15 38 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 8 15 19 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 8 15 14 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 8 15 14 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 8 15 14 , srcInfoPoints = [] } "unwrap"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 15 15 19 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 15 15 19 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 15 15 19 , srcInfoPoints = [] } "mode")))) (Paren SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 20 15 38 , srcInfoPoints = [ SrcSpan "tests/examples/AtSign.hs" 15 20 15 21 , SrcSpan "tests/examples/AtSign.hs" 15 37 15 38 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 21 15 37 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 21 15 31 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 21 15 31 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 21 15 31 , srcInfoPoints = [] } "A") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 21 15 31 , srcInfoPoints = [] } "constant"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 32 15 37 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 32 15 37 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 32 15 37 , srcInfoPoints = [] } "width")))))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 39 15 47 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 39 15 47 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/AtSign.hs" 15 39 15 47 , srcInfoPoints = [] } "fallback")))))))) Nothing ] ] , [ Comment True (SrcSpan "tests/examples/AtSign.hs" 4 1 7 3) " |\nAccelerate interface to the native CUDA implementation\nof the Fourier Transform provided by the CUFFT library.\n" ] )