diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-09-04 02:12:25 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-04 02:12:31 +0000 |
| commit | 9a25a505a77a56e9dfa277618d01d33deb19a2e1 (patch) | |
| tree | 5b642a68aba2479394930e7b5484f2e25620345b | |
| parent | 56bd071335151fccac2ab0846c6063292e891479 (diff) | |
Uses infix functions in TH
| -rw-r--r-- | hsm-core/Hsm/Core/Serial.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |