Tidy up unused imports and warnings.

Author: tmcgilchrist

packages/distributed-process-fsm/src/Control/Distributed/Process/FSM/Internal/Process.hs

@@ -121,19 +121,19 @@ walkPFSM st acc
 handleRpcRawInputs :: forall s d . (Show s) => State s d
                    -> (P.Message, SendPort P.Message)
                    -> Action (State s d)
-handleRpcRawInputs st@State{..} (msg, port) =
+handleRpcRawInputs st (msg, port) =
   handleInput msg $ st { stReply = (sendChan port), stTrans = Q.empty, stInput = Just msg }
 
 handleAllRawInputs :: forall s d. (Show s) => State s d
                    -> P.Message
                    -> Action (State s d)
-handleAllRawInputs st@State{..} msg =
+handleAllRawInputs st msg =
   handleInput msg $ st { stReply = noOp, stTrans = Q.empty, stInput = Just msg }
 
 handleExitReason :: forall s d. (Show s) => State s d
                    -> P.Message
                    -> Process (Maybe (ProcessAction (State s d)))
-handleExitReason st@State{..} msg =
+handleExitReason st msg =
   let st' = st { stReply = noOp, stTrans = Q.empty, stInput = Just msg }
   in tryHandleInput st' msg
 

packages/distributed-process-fsm/src/Control/Distributed/Process/FSM/Internal/Types.hs

@@ -93,7 +93,7 @@ import Data.Sequence
  )
 import qualified Data.Sequence as Q (null)
 import Data.Typeable (Typeable, typeOf)
-import Data.Tuple (swap, uncurry)
+import Data.Tuple (swap)
 import GHC.Generics
 
 -- | The internal state of an FSM process.
@@ -312,7 +312,6 @@ apply st msg step
                          setProcessState s'
       -- (_, st') <- runFSM st (addTransition ev)
       return $ enqueue st (Just ev)
-  | otherwise = error $ baseErr ++ ".Internal.Types.apply:InvalidStep"
   where
     mstash = return . uncurry enqueue . swap
     stash (o, s) = return $ enqueue s (Just o)

packages/distributed-process-fsm/tests/TestFSM.hs

@@ -29,8 +29,6 @@ import Test.Tasty.HUnit (testCase, assertEqual, assertBool)
 import Network.Transport.TCP
 import qualified Network.Transport as NT
 
--- import Control.Distributed.Process.Serializable (Serializable)
--- import Control.Monad (void)
 import Data.Binary (Binary)
 import Data.Maybe (fromJust)
 import Data.Typeable (Typeable)
@@ -157,7 +155,7 @@ republicationOfEvents = do
   send pid "yo"
   send pid On
 
-  res' <- receiveChanTimeout (asTimeout $ seconds 20) rp :: Process (Maybe ())
+  _ <- receiveChanTimeout (asTimeout $ seconds 20) rp :: Process (Maybe ())
   liftIO $ assertEqual mempty (Just ()) res
 
   kill pid "thankyou byebye"