From 9a25a505a77a56e9dfa277618d01d33deb19a2e1 Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Thu, 4 Sep 2025 02:12:25 +0000
Subject: Uses infix functions in TH

---
 hsm-core/Hsm/Core/Serial.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'hsm-core/Hsm/Core/Serial.hs')

diff --git a/hsm-core/Hsm/Core/Serial.hs b/hsm-core/Hsm/Core/Serial.hs
index a672fca..9a4d2b7 100644
--- a/hsm-core/Hsm/Core/Serial.hs
+++ b/hsm-core/Hsm/Core/Serial.hs
@@ -39,7 +39,7 @@ makeSerial :: String -> String -> String -> Name -> [Int] -> Q [Dec]
 makeSerial name suffix mapFunction mapType indices =
   return
     [ DataD [] dataName [] Nothing (indexCons <$> indices) [deriveClause]
-    , SigD mapFunctionName . AppT (AppT ArrowT $ ConT dataName) $ ConT mapType
+    , SigD mapFunctionName $ ArrowT `AppT` ConT dataName `AppT` ConT mapType
     , FunD mapFunctionName $ mapFunctionClause <$> indices
     ]
   where
-- 
cgit v1.2.1