Adds another formatting/cleaning roundHEADmaster

1 files changed, 9 insertions, 8 deletions

diff --git a/hsm-gpio/Hsm/GPIO.hs b/hsm-gpio/Hsm/GPIO.hs
index fcb3a00..31b73d9 100644
--- a/hsm-gpio/Hsm/GPIO.hs
+++ b/hsm-gpio/Hsm/GPIO.hs
@@ -3,21 +3,22 @@
 {-# LANGUAGE TypeFamilies #-}
 
 module Hsm.GPIO
-  ( GPIOPin(..)
+  ( GPIOPin (..)
   , GPIO
   , setPins
   , setAllPins
   , runGPIO
-  ) where
+  )
+where
 
 import Control.Monad (forM_, void)
 import Control.Monad.Trans.Cont (evalCont)
 import Data.Vector.Storable (fromList, replicate, unsafeWith)
-import Effectful (Dispatch(Static), DispatchOf, Eff, IOE, (:>), liftIO)
-import Effectful.Dispatch.Static (SideEffects(WithSideEffects), StaticRep, evalStaticRep, getStaticRep, unsafeEff_)
+import Effectful (Dispatch (Static), DispatchOf, Eff, IOE, liftIO, (:>))
+import Effectful.Dispatch.Static (SideEffects (WithSideEffects), StaticRep, evalStaticRep, getStaticRep, unsafeEff_)
 import Effectful.Exception (bracket)
 import Foreign.C.String (withCString)
-import Foreign.C.Types (CSize(CSize), CUInt)
+import Foreign.C.Types (CSize (CSize), CUInt)
 import Foreign.Ptr (Ptr)
 import Hsm.Core.Bracket (bracketCont)
 import Hsm.Core.Serial (makeSerial)
@@ -43,7 +44,7 @@ import Hsm.GPIO.FFI
   , requestConfigNew
   , requestConfigSetConsumer
   )
-import Hsm.Log (Log, Severity(Info, Trace), logMsg)
+import Hsm.Log (Log, Severity (Info, Trace), logMsg)
 import Prelude hiding (replicate)
 
 $(makeSerial "GPIO" "Pin" "pinLine" ''CUInt $ [2 .. 17] <> [20 .. 27])
@@ -61,8 +62,8 @@ data GPIO (a :: * -> *) (b :: *)
 
 type instance DispatchOf GPIO = Static WithSideEffects
 
-newtype instance StaticRep GPIO =
-  GPIO (Ptr LineRequest)
+newtype instance StaticRep GPIO
+  = GPIO (Ptr LineRequest)
 
 setPins :: (GPIO :> es, Log "gpio" :> es) => [GPIOPin] -> LineValue -> Eff es ()
 setPins pins lineValue = do