Improves formatting

1 files changed, 3 insertions, 6 deletions

diff --git a/hsm-gpio/Hsm/GPIO.hs b/hsm-gpio/Hsm/GPIO.hs
index 2bcf3ed..7cc2c36 100644
--- a/hsm-gpio/Hsm/GPIO.hs
+++ b/hsm-gpio/Hsm/GPIO.hs
@@ -73,8 +73,7 @@ setPins :: (GPIO :> es, Log "gpio" :> es) => [GPIOPin] -> LineValue -> Eff es ()
 setPins pins lineValue = do
   GPIO lineRequest <- getStaticRep
   logMsg Trace $ "Setting pin(s) " <> show pins <> " to " <> show lineValue
-  forM_ pins $ \pin ->
-    unsafeEff_ $ lineRequestSetValue lineRequest (pinLine pin) lineValue
+  forM_ pins $ \pin -> unsafeEff_ $ lineRequestSetValue lineRequest (pinLine pin) lineValue
 
 setAllPins :: (GPIO :> es, Log "gpio" :> es) => LineValue -> Eff es ()
 setAllPins lineValue = do
@@ -122,8 +121,7 @@ runGPIO consumer action = do
         lineSettingsDealloc lineSettings = do
           logMsg Info "Freeing line settings"
           liftIO $ lineSettingsFree lineSettings
-    lineConfigBracket lineSettings =
-      allocateEff lineConfigAlloc lineConfigDealloc
+    lineConfigBracket lineSettings = allocateEff lineConfigAlloc lineConfigDealloc
       where
         lineConfigAlloc = do
           logMsg Info "Allocating line config"
@@ -150,8 +148,7 @@ runGPIO consumer action = do
         requestConfigDealloc requestConfig = do
           logMsg Info "Freeing request config"
           liftIO $ requestConfigFree requestConfig
-    lineRequestBracket chip requestConfig lineConfig =
-      allocateEff lineRequestAlloc lineRequestDealloc
+    lineRequestBracket chip requestConfig lineConfig = allocateEff lineRequestAlloc lineRequestDealloc
       where
         lineRequestAlloc = do
           logMsg Info "Allocating line request"