From e3ea039428545e185b38c5633fe3576ab32f1f8e Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Thu, 16 Jan 2025 19:22:18 -0800
Subject: Cleans excessive type annotations

---
 hsm-command/Hsm/Command/Command.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'hsm-command/Hsm/Command/Command.hs')

diff --git a/hsm-command/Hsm/Command/Command.hs b/hsm-command/Hsm/Command/Command.hs
index 3b53287..53964c4 100644
--- a/hsm-command/Hsm/Command/Command.hs
+++ b/hsm-command/Hsm/Command/Command.hs
@@ -39,13 +39,10 @@ data Command
   | Rotate Angle Speed Int
   deriving (Binary, Generic, Read, Show)
 
-commandStream ::
-     forall es. (Log :> es, Readline :> es)
-  => S.Stream (Eff es) Command
+commandStream :: (Log :> es, Readline :> es) => S.Stream (Eff es) Command
 commandStream =
   S.mapMaybeM (parse . fromJust) $ S.takeWhile isJust $ S.repeatM readline
   where
-    parse :: String -> Eff es (Maybe Command)
     parse string =
       case readEither string of
         Left err -> logAttention_ (pack err) >> return Nothing
-- 
cgit v1.2.1