From 5a78bc1885ad7d6fd7ad63d6ef900188ab38a80c Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Fri, 22 Aug 2025 04:06:44 +0000
Subject: Improves formatting again

---
 hsm-core/Hsm/Core/Serial.hs | 27 +++++++++++----------------
 1 file changed, 11 insertions(+), 16 deletions(-)

(limited to 'hsm-core/Hsm/Core')

diff --git a/hsm-core/Hsm/Core/Serial.hs b/hsm-core/Hsm/Core/Serial.hs
index 0fc89e8..a0efca3 100644
--- a/hsm-core/Hsm/Core/Serial.hs
+++ b/hsm-core/Hsm/Core/Serial.hs
@@ -2,22 +2,21 @@
 
 module Hsm.Core.Serial
   ( makeSerial
-  )
-where
+  ) where
 
 import GHC.Num (integerFromInt)
 import Language.Haskell.TH
-  ( Body (NormalB)
-  , Clause (Clause)
-  , Con (NormalC)
-  , Dec (DataD, FunD, SigD)
-  , DerivClause (DerivClause)
-  , Exp (LitE)
-  , Lit (IntegerL)
+  ( Body(NormalB)
+  , Clause(Clause)
+  , Con(NormalC)
+  , Dec(DataD, FunD, SigD)
+  , DerivClause(DerivClause)
+  , Exp(LitE)
+  , Lit(IntegerL)
   , Name
-  , Pat (ConP)
+  , Pat(ConP)
   , Q
-  , Type (AppT, ArrowT, ConT)
+  , Type(AppT, ArrowT, ConT)
   , mkName
   )
 
@@ -38,11 +37,7 @@ import Language.Haskell.TH
 -- and a function `pinLine :: GPIOPin -> Int`.
 makeSerial :: String -> String -> String -> Name -> [Int] -> Q [Dec]
 makeSerial name suffix mapFun mapType idxs =
-  return
-    [ DataD [] dtName [] Nothing (idxCons <$> idxs) [derivClause]
-    , SigD mapFunName . AppT (AppT ArrowT $ ConT dtName) $ ConT mapType
-    , FunD mapFunName $ mapFunClause <$> idxs
-    ]
+  return [DataD [] dtName [] Nothing (idxCons <$> idxs) [derivClause], SigD mapFunName . AppT (AppT ArrowT $ ConT dtName) $ ConT mapType, FunD mapFunName $ mapFunClause <$> idxs]
   where
     dtName = mkName $ name <> suffix
     idxName idx = mkName $ name <> show idx
-- 
cgit v1.2.1