diff options
Diffstat (limited to 'hsm-core')
| -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 |