Adds another formatting/cleaning roundHEADmaster

1 files changed, 8 insertions, 7 deletions

diff --git a/hsm-pwm/Hsm/PWM.hs b/hsm-pwm/Hsm/PWM.hs
index 2fd5955..bc31fbc 100644
--- a/hsm-pwm/Hsm/PWM.hs
+++ b/hsm-pwm/Hsm/PWM.hs
@@ -12,20 +12,21 @@
 -- - SysFS Reference: https://forums.raspberrypi.com/viewtopic.php?t=359251
 -- - UDEV Setup: https://forums.raspberrypi.com/viewtopic.php?t=316514
 module Hsm.PWM
-  ( PWMChannel(..)
+  ( PWMChannel (..)
   , PWM
   , setCycleDuration
   , runPWM
-  ) where
+  )
+where
 
 import Control.Concurrent (threadDelay)
 import Control.Monad (forM_)
 import Control.Monad.Loops (untilM_)
-import Effectful (Dispatch(Static), DispatchOf, Eff, IOE, (:>), liftIO)
-import Effectful.Dispatch.Static (SideEffects(WithSideEffects), StaticRep, evalStaticRep, unsafeEff_)
+import Effectful (Dispatch (Static), DispatchOf, Eff, IOE, liftIO, (:>))
+import Effectful.Dispatch.Static (SideEffects (WithSideEffects), StaticRep, evalStaticRep, unsafeEff_)
 import Effectful.Exception (bracket_)
 import Hsm.Core.Serial (makeSerial)
-import Hsm.Log (Log, Severity(Info, Trace), logMsg)
+import Hsm.Log (Log, Severity (Info, Trace), logMsg)
 import System.FilePath ((</>))
 import System.Posix.Files (fileAccess)
 
@@ -35,8 +36,8 @@ data PWM (a :: * -> *) (b :: *)
 
 type instance DispatchOf PWM = Static WithSideEffects
 
-newtype instance StaticRep PWM =
-  PWM ()
+newtype instance StaticRep PWM
+  = PWM ()
 
 chipPath :: FilePath
 chipPath = "/sys/class/pwm/pwmchip0"