ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 1 1 8 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/FFIExtensions.hs" 1 1 1 1
            , SrcSpan "tests/examples/FFIExtensions.hs" 2 1 2 1
            , SrcSpan "tests/examples/FFIExtensions.hs" 2 1 2 1
            , SrcSpan "tests/examples/FFIExtensions.hs" 4 1 4 1
            , SrcSpan "tests/examples/FFIExtensions.hs" 7 1 7 1
            , SrcSpan "tests/examples/FFIExtensions.hs" 8 1 8 1
            , SrcSpan "tests/examples/FFIExtensions.hs" 8 1 8 1
            ]
        }
      (Just
         (ModuleHead
            SrcSpanInfo
              { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 2 1 2 27
              , srcInfoPoints =
                  [ SrcSpan "tests/examples/FFIExtensions.hs" 2 1 2 7
                  , SrcSpan "tests/examples/FFIExtensions.hs" 2 22 2 27
                  ]
              }
            (ModuleName
               SrcSpanInfo
                 { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 2 8 2 21
                 , srcInfoPoints = []
                 }
               "FFIExtensions")
            Nothing
            Nothing))
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 1 1 1 69
            , srcInfoPoints =
                [ SrcSpan "tests/examples/FFIExtensions.hs" 1 1 1 13
                , SrcSpan "tests/examples/FFIExtensions.hs" 1 38 1 39
                , SrcSpan "tests/examples/FFIExtensions.hs" 1 56 1 57
                , SrcSpan "tests/examples/FFIExtensions.hs" 1 66 1 69
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 1 14 1 38
                , srcInfoPoints = []
                }
              "ForeignFunctionInterface"
          , Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 1 40 1 56
                , srcInfoPoints = []
                }
              "InterruptibleFFI"
          , Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 1 58 1 65
                , srcInfoPoints = []
                }
              "CApiFFI"
          ]
      ]
      []
      [ ForImp
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 4 1 5 38
            , srcInfoPoints =
                [ SrcSpan "tests/examples/FFIExtensions.hs" 4 1 4 8
                , SrcSpan "tests/examples/FFIExtensions.hs" 4 9 4 15
                , SrcSpan "tests/examples/FFIExtensions.hs" 5 4 5 11
                , SrcSpan "tests/examples/FFIExtensions.hs" 5 18 5 20
                ]
            }
          (CCall
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 4 16 4 21
               , srcInfoPoints = []
               })
          (Just
             (PlayInterruptible
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 4 22 4 35
                  , srcInfoPoints = []
                  }))
          (Just "sleep")
          (Ident
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 12 5 17
               , srcInfoPoints = []
               }
             "sleep")
          (TyFun
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 21 5 38
               , srcInfoPoints =
                   [ SrcSpan "tests/examples/FFIExtensions.hs" 5 27 5 29 ]
               }
             (TyCon
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 21 5 26
                  , srcInfoPoints = []
                  }
                (UnQual
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 21 5 26
                     , srcInfoPoints = []
                     }
                   (Ident
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 21 5 26
                        , srcInfoPoints = []
                        }
                      "CUint")))
             (TyApp
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 30 5 38
                  , srcInfoPoints = []
                  }
                (TyCon
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 30 5 32
                     , srcInfoPoints = []
                     }
                   (UnQual
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 30 5 32
                        , srcInfoPoints = []
                        }
                      (Ident
                         SrcSpanInfo
                           { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 30 5 32
                           , srcInfoPoints = []
                           }
                         "IO")))
                (TyCon
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 33 5 38
                     , srcInfoPoints = []
                     }
                   (UnQual
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 33 5 38
                        , srcInfoPoints = []
                        }
                      (Ident
                         SrcSpanInfo
                           { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 5 33 5 38
                           , srcInfoPoints = []
                           }
                         "CUint")))))
      , ForImp
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 1 7 54
            , srcInfoPoints =
                [ SrcSpan "tests/examples/FFIExtensions.hs" 7 1 7 8
                , SrcSpan "tests/examples/FFIExtensions.hs" 7 9 7 15
                , SrcSpan "tests/examples/FFIExtensions.hs" 7 21 7 33
                , SrcSpan "tests/examples/FFIExtensions.hs" 7 36 7 38
                ]
            }
          (CApi
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 16 7 20
               , srcInfoPoints = []
               })
          Nothing
          (Just "header.h f")
          (Ident
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 34 7 35
               , srcInfoPoints = []
               }
             "f")
          (TyFun
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 39 7 54
               , srcInfoPoints =
                   [ SrcSpan "tests/examples/FFIExtensions.hs" 7 44 7 46 ]
               }
             (TyCon
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 39 7 43
                  , srcInfoPoints = []
                  }
                (UnQual
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 39 7 43
                     , srcInfoPoints = []
                     }
                   (Ident
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 39 7 43
                        , srcInfoPoints = []
                        }
                      "CInt")))
             (TyApp
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 47 7 54
                  , srcInfoPoints = []
                  }
                (TyCon
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 47 7 49
                     , srcInfoPoints = []
                     }
                   (UnQual
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 47 7 49
                        , srcInfoPoints = []
                        }
                      (Ident
                         SrcSpanInfo
                           { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 47 7 49
                           , srcInfoPoints = []
                           }
                         "IO")))
                (TyCon
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 50 7 54
                     , srcInfoPoints = []
                     }
                   (UnQual
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 50 7 54
                        , srcInfoPoints = []
                        }
                      (Ident
                         SrcSpanInfo
                           { srcInfoSpan = SrcSpan "tests/examples/FFIExtensions.hs" 7 50 7 54
                           , srcInfoPoints = []
                           }
                         "CInt")))))
      ]
  , []
  )