diff options
Diffstat (limited to 'hsm-command/Hsm/Command/Command.hs')
| -rw-r--r-- | hsm-command/Hsm/Command/Command.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 |