From 115b3be9f43fc14a0f4b30c437b0dc5ab8a7b472 Mon Sep 17 00:00:00 2001
From: nalchevanidze <d.nalchevanidze@gmail.com>
Date: Tue, 14 Dec 2021 16:40:59 -0800
Subject: [PATCH] support GHC 9.0.1 (#144)

Summary:
new GHC 9.0 parser fails on space before strict operator

![image](https://user-images.githubusercontent.com/18636038/138489244-9321cc80-5bdf-4496-80ef-6afb289a2f13.png)

this pull request supports GHC 9.0 by removing this space.

Pull Request resolved: https://github.com/facebook/Haxl/pull/144

Reviewed By: josefs

Differential Revision: D33074741

Pulled By: watashi

fbshipit-source-id: 78579a041f939c0d9a0690a0e88f2ba881972332
---
 .github/workflows/test.yml | 2 +-
 Haxl/Core/DataCache.hs     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 4ddd3d8..b4e3117 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -13,7 +13,7 @@ jobs:
       fail-fast: false
       matrix:
         os: [ubuntu-latest]
-        ghc: ['8.10.2', '8.8.4', '8.6.5', '8.4.4', '8.2.2']
+        ghc: ['9.0.1', '8.10.2', '8.8.4', '8.6.5', '8.4.4', '8.2.2']
 
     steps:
     - uses: actions/checkout@v2
diff --git a/Haxl/Core/DataCache.hs b/Haxl/Core/DataCache.hs
index efe25b5..99970ab 100644
--- a/Haxl/Core/DataCache.hs
+++ b/Haxl/Core/DataCache.hs
@@ -51,7 +51,7 @@ newtype DataCache res = DataCache (HashTable TypeRep (SubCache res))
 --
 data SubCache res =
   forall req a . (Hashable (req a), Eq (req a)) =>
-       SubCache (req a -> String) (a -> String) ! (HashTable (req a) (res a))
+       SubCache (req a -> String) (a -> String) !(HashTable (req a) (res a))
        -- NB. the inner HashMap is strict, to avoid building up
        -- a chain of thunks during repeated insertions.