[all reports]
Package |
distributed-process-client-server-0.2.6.0 |
Install |
InstallOk |
Docs |
Ok |
Tests |
Ok |
Time submitted |
2024-09-06 13:21:00.727587581 UTC
|
Compiler |
ghc-9.6.3 |
OS |
linux |
Arch |
x86_64 |
Dependencies |
base-4.18.1.0, binary-0.8.9.2, containers-0.6.7, deepseq-1.4.8.1, distributed-process-0.7.7, distributed-process-async-0.2.8, distributed-process-extras-0.3.6, exceptions-0.10.7, fingertree-0.1.5.0, hashable-1.5.0.0, mtl-2.3.1, stm-2.5.1.0, time-1.12.2, transformers-0.6.1.0, unordered-containers-0.2.20 |
Flags |
none
|
Code Coverage
expressions | 67% (2000/2945) |
boolean | guards | 8% (2/23) |
conditions | 28% (2/7) |
qualifiers | 100% (0/0) |
alternatives | 60% (145/239) |
local declarations | 84% (90/106) |
top-level declarations | 56% (217/387) |
Build log
[view raw]
Resolving dependencies...
Starting fingertree-0.1.5.0
Starting splitmix-0.1.0.5
Starting bytestring-0.12.1.0
Starting data-accessor-0.2.3.1
Starting syb-0.7.2.4
Building fingertree-0.1.5.0
Building bytestring-0.12.1.0
Building splitmix-0.1.0.5
Building data-accessor-0.2.3.1
Building syb-0.7.2.4
Completed splitmix-0.1.0.5
Completed syb-0.7.2.4
Completed data-accessor-0.2.3.1
Completed fingertree-0.1.5.0
Completed bytestring-0.12.1.0
Starting random-1.2.1.2
Starting os-string-2.0.6
Starting binary-0.8.9.2
Building random-1.2.1.2
Building os-string-2.0.6
Building binary-0.8.9.2
Completed os-string-2.0.6
Starting filepath-1.5.3.0
Completed binary-0.8.9.2
Starting rank1dynamic-0.4.2
Building filepath-1.5.3.0
Starting text-2.1.1
Building rank1dynamic-0.4.2
Building text-2.1.1
Completed random-1.2.1.2
Completed rank1dynamic-0.4.2
Starting distributed-static-0.3.11
Building distributed-static-0.3.11
Completed filepath-1.5.3.0
Completed distributed-static-0.3.11
Completed text-2.1.1
Starting hashable-1.5.0.0
Building hashable-1.5.0.0
Completed hashable-1.5.0.0
Starting network-transport-0.5.8
Starting unordered-containers-0.2.20
Building network-transport-0.5.8
Building unordered-containers-0.2.20
Completed network-transport-0.5.8
Starting distributed-process-0.7.7
Building distributed-process-0.7.7
Completed unordered-containers-0.2.20
Completed distributed-process-0.7.7
Starting distributed-process-async-0.2.8
Starting distributed-process-extras-0.3.6
Building distributed-process-async-0.2.8
Building distributed-process-extras-0.3.6
Completed distributed-process-async-0.2.8
Completed distributed-process-extras-0.3.6
Starting distributed-process-client-server-0.2.6.0
Building distributed-process-client-server-0.2.6.0
Completed distributed-process-client-server-0.2.6.0
Test log
[view raw]
Resolving dependencies...
Build profile: -w ghc-9.6.3 -O0
In order, the following will be built (use -v for more details):
- distributed-process-client-server-0.2.6.0 (first run)
Configuring distributed-process-client-server-0.2.6.0...
Preprocessing library for distributed-process-client-server-0.2.6.0..
Building library for distributed-process-client-server-0.2.6.0..
[ 1 of 11] Compiling Control.Distributed.Process.ManagedProcess.Internal.PriorityQueue
[ 2 of 11] Compiling Control.Distributed.Process.ManagedProcess.Timer
src/Control/Distributed/Process/ManagedProcess/Timer.hs:70:1: warning: [-Wunused-imports]
The import of GHC.Conc is redundant
except perhaps to import instances from GHC.Conc
To import instances alone, use: import GHC.Conc()
|
70 | import GHC.Conc (registerDelay)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 3 of 11] Compiling Control.Distributed.Process.ManagedProcess.Internal.Types
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:468:7: warning: [-Wpartial-fields]
Use of partial record field selector: apiFilter
|
468 | apiFilter :: s -> Message a b -> Process (Filter s)
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:473:7: warning: [-Wpartial-fields]
Use of partial record field selector: anyFilter
|
473 | anyFilter :: s -> a -> Process (Filter s)
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:477:7: warning: [-Wpartial-fields]
Use of partial record field selector: rawFilter
|
477 | rawFilter :: s -> P.Message -> Process (Maybe (Filter s))
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:481:7: warning: [-Wpartial-fields]
Use of partial record field selector: stateFilter
|
481 | stateFilter :: s -> Process (Maybe (Filter s))
| ^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:495:7: warning: [-Wpartial-fields]
Use of partial record field selector: dispatchIf
|
495 | , dispatchIf :: s -> Message a b -> Bool
| ^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:503:7: warning: [-Wpartial-fields]
Use of partial record field selector: channel
|
503 | channel :: ReceivePort (Message a b)
| ^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:504:7: warning: [-Wpartial-fields]
Use of partial record field selector: dispatchChan
|
504 | , dispatchChan :: s -> Message a b -> Process (ProcessAction s)
| ^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:509:7: warning: [-Wpartial-fields]
Use of partial record field selector: stmAction
|
509 | stmAction :: STM a
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:510:7: warning: [-Wpartial-fields]
Use of partial record field selector: dispatchStm
|
510 | , dispatchStm :: s -> a -> Process (ProcessAction s)
| ^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:511:7: warning: [-Wpartial-fields]
Use of partial record field selector: matchStm
|
511 | , matchStm :: Match P.Message
| ^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:512:7: warning: [-Wpartial-fields]
Use of partial record field selector: matchAnyStm
|
512 | , matchAnyStm :: forall m . (P.Message -> m) -> Match m
| ^^^^^^^^^^^
[ 4 of 11] Compiling Control.Distributed.Process.ManagedProcess.Server
src/Control/Distributed/Process/ManagedProcess/Server.hs:102:26: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraints: (Serializable a, Serializable b)
In the type signature for:
condition :: forall a b.
(Serializable a, Serializable b) =>
(a -> b -> Bool) -> Condition a b
|
102 | condition :: forall a b. (Serializable a, Serializable b)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:110:22: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable m
In the type signature for:
state :: forall s m. Serializable m => (s -> Bool) -> Condition s m
|
110 | state :: forall s m. (Serializable m) => (s -> Bool) -> Condition s m
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:116:22: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable m
In the type signature for:
input :: forall s m. Serializable m => (m -> Bool) -> Condition s m
|
116 | input :: forall s m. (Serializable m) => (m -> Bool) -> Condition s m
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:132:14: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable r
In the type signature for:
replyWith :: forall r s.
Serializable r =>
r -> ProcessAction s -> Reply r s
|
132 | replyWith :: (Serializable r)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:139:12: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable r
In the type signature for:
noReply :: forall r s.
Serializable r =>
ProcessAction s -> Reply r s
|
139 | noReply :: (Serializable r) => ProcessAction s -> Reply r s
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:221:27: warning: [GHC-63397] [-Wname-shadowing]
This binding for tag shadows the existing binding
imported from Control.Distributed.Process.ManagedProcess.Internal.Types at src/Control/Distributed/Process/ManagedProcess/Server.hs:81:1-86
(and originally defined
at src/Control/Distributed/Process/ManagedProcess/Internal/Types.hs:150:1-3)
|
221 | replyTo cRef@(CallRef (_, tag)) msg = sendTo cRef $ CallResponse msg tag
| ^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:257:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a b not matched:
_ (CastMessage _)
_ (ChanMessage _ _)
|
257 | dispatch = \s (CallMessage p c) -> handler p >>= mkCallReply c s
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:263:24: warning: [GHC-30606] [-Wredundant-constraints]
" Redundant constraint: Serializable b
In the type signature for:
mkCallReply :: Serializable b =>
CallRef b -> s -> b -> Process (ProcessAction s)
" In an equation for handleCallIf_:
handleCallIf_ cond handler
= DispatchIf
{dispatch = \ s (CallMessage p c) -> handler p >>= mkCallReply c s,
dispatchIf = checkCall cond}
where
mkCallReply ::
(Serializable b) =>
CallRef b -> s -> b -> Process (ProcessAction s)
mkCallReply c s m
= let ... in sendTo c' (CallResponse m t) >> continue s
|
263 | mkCallReply :: (Serializable b)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:293:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a b not matched:
_ (CastMessage _)
_ (ChanMessage _ _)
|
293 | { dispatch = \s (CallMessage p c) -> handler s p >>= mkReply c
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:312:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a b not matched:
_ (CastMessage _)
_ (ChanMessage _ _)
|
312 | dispatch = \_ (CallMessage p c) -> handler c p >>= mkReply c
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:337:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a b not matched:
_ (CastMessage _)
_ (ChanMessage _ _)
|
337 | dispatch = \s (CallMessage p c) -> handler c s p >>= mkReply c
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:360:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a b not matched:
_ (CastMessage _)
_ (CallMessage _ _)
|
360 | dispatch = \s (ChanMessage p c) -> handler c s p
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:379:31: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a b not matched:
_ (CastMessage _)
_ (CallMessage _ _)
|
379 | = DispatchIf { dispatch = \s ((ChanMessage m p) :: Message a b) -> h p m s
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:404:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a () not matched:
_ (CallMessage _ _)
_ (ChanMessage _ _)
|
404 | dispatch = \s ((CastMessage p) :: Message a ()) -> h s p
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:485:33: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a () not matched:
_ (CallMessage _ _)
_ (ChanMessage _ _)
|
485 | , dispatchChan = \s ((CastMessage p) :: Message a ()) -> h s p
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:496:33: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a () not matched:
_ (CallMessage _ _)
_ (ChanMessage _ _)
|
496 | , dispatchChan = \s ((CastMessage p) :: Message a ()) -> h p s
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:514:31: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message a () not matched:
_ (CallMessage _ _)
_ (ChanMessage _ _)
|
514 | = DispatchIf { dispatch = \s ((CastMessage p) :: Message a ()) -> h p $ s
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:556:21: warning: [GHC-30606] [-Wredundant-constraints]
" Redundant constraint: Serializable a
In the type signature for:
doHandle :: Serializable a =>
ActionHandler s a -> s -> Message a () -> Process (ProcessAction s)
" In an equation for handleDispatchIf:
handleDispatchIf cond handler
= DispatchIf {dispatch = doHandle handler, dispatchIf = check cond}
where
doHandle ::
(Serializable a) =>
ActionHandler s a -> s -> Message a () -> Process (ProcessAction s)
doHandle h s msg
= case msg of
(CallMessage p _) -> h s p
(CastMessage p) -> h s p
(ChanMessage p _) -> h s p
|
556 | where doHandle :: (Serializable a)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:631:5: warning: [GHC-53633] [-Woverlapping-patterns]
Pattern match is redundant
In an equation for mkReply: mkReply cRef act | otherwise = ...
|
631 | | otherwise = die $ ExitOther "mkReply.InvalidState"
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server.hs:635:25: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable m
In the type signature for:
check :: forall s m a.
Serializable m =>
Condition s m -> s -> Message m a -> Bool
|
635 | check :: forall s m a . (Serializable m)
| ^^^^^^^^^^^^^^^^
[ 5 of 11] Compiling Control.Distributed.Process.ManagedProcess.Server.Restricted
src/Control/Distributed/Process/ManagedProcess/Server/Restricted.hs:133:23: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable r
In the type signature for:
reply :: forall s r.
Serializable r =>
r -> RestrictedProcess s (Result r)
|
133 | reply :: forall s r . (Serializable r) => r -> RestrictedProcess s (Result r)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Restricted.hs:138:25: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable r
In the type signature for:
noReply :: forall s r.
Serializable r =>
Result r -> RestrictedProcess s (Result r)
|
138 | noReply :: forall s r . (Serializable r)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Restricted.hs:243:29: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable a
In the type signature for:
wrapHandler :: forall s a.
Serializable a =>
(a -> RestrictedProcess s RestrictedAction) -> ActionHandler s a
|
243 | wrapHandler :: forall s a . (Serializable a)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Restricted.hs:254:28: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable a
In the type signature for:
wrapCall :: forall s a b.
(Serializable a, Serializable b) =>
(a -> RestrictedProcess s (Result b)) -> CallHandler s a b
|
254 | wrapCall :: forall s a b . (Serializable a, Serializable b)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 6 of 11] Compiling Control.Distributed.Process.ManagedProcess.Client
src/Control/Distributed/Process/ManagedProcess/Client.hs:141:25: warning: [GHC-30606] [-Wredundant-constraints]
" Redundant constraint: Serializable b
In the type signature for:
decodeResult :: Serializable b =>
Maybe (Either ExitReason b) -> Process (Maybe b)
" In an equation for callTimeout:
callTimeout s m d
= initCall s m >>= waitResponse (Just d) >>= decodeResult
where
decodeResult ::
(Serializable b) =>
Maybe (Either ExitReason b) -> Process (Maybe b)
decodeResult Nothing = return Nothing
decodeResult (Just (Right result)) = return $ Just result
decodeResult (Just (Left reason)) = die reason
|
141 | where decodeResult :: (Serializable b)
| ^^^^^^^^^^^^^^^^
[ 7 of 11] Compiling Control.Distributed.Process.ManagedProcess.Internal.GenProcess
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:43:1: warning: [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
43 | import Control.Applicative (liftA2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:150:34: warning: [-Wunused-record-wildcards]
No variables bound in the record wildcard match are used
Possible fix: omit the ..
|
150 | modifyState $ \st@ProcessState{..} -> st { procState = st' }
| ^^
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:154:52: warning: [-Wunused-record-wildcards]
No variables bound in the record wildcard match are used
Possible fix: omit the ..
|
154 | setDrainTimeout t = modifyState $ \st@ProcessState{..} -> st { sysTimeout = t }
| ^^
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:160:34: warning: [-Wunused-record-wildcards]
No variables bound in the record wildcard match are used
Possible fix: omit the ..
|
160 | modifyState $ \st@ProcessState{..} -> st { usrTimeout = d }
| ^^
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:183:34: warning: [-Wunused-record-wildcards]
No variables bound in the record wildcard match are used
Possible fix: omit the ..
|
183 | modifyState $ \st@ProcessState{..} -> st { usrTimers = ut }
| ^^
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:442:42: warning: [-Wunused-record-wildcards]
No variables bound in the record wildcard match are used
Possible fix: omit the ..
|
442 | modifyState $ \st@ProcessState{..} -> st { procDef = pd', procState = ps' }
| ^^
src/Control/Distributed/Process/ManagedProcess/Internal/GenProcess.hs:445:9: warning: [GHC-53633] [-Woverlapping-patterns]
Pattern match is redundant
In an equation for nextAction: nextAction ac | otherwise = ...
|
445 | | otherwise {- compiler foo -} = return $ ExitOther "IllegalState"
| ^^^^^^^^^
[ 8 of 11] Compiling Control.Distributed.Process.ManagedProcess.Server.Priority
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:82:5: warning: [-Wunused-imports]
The import of GenProcess
from module Control.Distributed.Process.ManagedProcess.Internal.GenProcess is redundant
|
82 | , GenProcess
| ^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:102:7: warning: [-Wpartial-fields]
Use of partial record field selector: pureCheck
|
102 | pureCheck :: s -> m -> Process Bool
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:103:7: warning: [-Wpartial-fields]
Use of partial record field selector: handler
|
103 | , handler :: s -> m -> Process (Filter s)
| ^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:108:7: warning: [-Wpartial-fields]
Use of partial record field selector: apiCheck
|
108 | apiCheck :: s -> m -> Process Bool
| ^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:109:7: warning: [-Wpartial-fields]
Use of partial record field selector: apiHandler
|
109 | , apiHandler :: s -> Message m b -> Process (Filter s)
| ^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:113:7: warning: [-Wpartial-fields]
Use of partial record field selector: rawCheck
|
113 | rawCheck :: s -> P.Message -> Process Bool
| ^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:114:7: warning: [-Wpartial-fields]
Use of partial record field selector: rawHandler
|
114 | , rawHandler :: s -> P.Message -> Process (Maybe (Filter s))
| ^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:116:19: warning: [-Wpartial-fields]
Use of partial record field selector: stateHandler
|
116 | | HandleState { stateHandler :: s -> Process (Maybe (Filter s)) }
| ^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:119:7: warning: [-Wpartial-fields]
Use of partial record field selector: safeCheck
|
119 | safeCheck :: s -> P.Message -> Process Bool
| ^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:136:40: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type s, Message m b not matched:
_ (CastMessage _)
_ (ChanMessage _ _)
|
136 | | HandleApi{..} <- h = FilterApi $ \s m@(CallMessage m' _) -> do
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/Control/Distributed/Process/ManagedProcess/Server/Priority.hs:240:31: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraints: (Serializable m, Serializable b)
In the type signature for:
rejectApi :: forall s m b r.
(Show r, Serializable m, Serializable b) =>
r -> s -> Message m b -> Process (Filter s)
|
240 | rejectApi :: forall s m b r . (Show r, Serializable m, Serializable b)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 9 of 11] Compiling Control.Distributed.Process.ManagedProcess.Server.Gen
src/Control/Distributed/Process/ManagedProcess/Server/Gen.hs:100:4: warning: [-Wunused-imports]
The qualified import of GenProcess
from module Control.Distributed.Process.ManagedProcess.Internal.GenProcess is redundant
|
100 | , GenProcess
| ^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Gen.hs:134:27: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable r
In the type signature for:
replyWith :: forall r s.
Serializable r =>
r -> ProcessAction s -> GenProcess s (ProcessReply r s)
|
134 | replyWith :: forall r s . (Serializable r)
| ^^^^^^^^^^^^^^^^
src/Control/Distributed/Process/ManagedProcess/Server/Gen.hs:141:12: warning: [GHC-30606] [-Wredundant-constraints]
Redundant constraint: Serializable r
In the type signature for:
noReply :: forall r s.
Serializable r =>
ProcessAction s -> GenProcess s (ProcessReply r s)
|
141 | noReply :: (Serializable r) => ProcessAction s -> GenProcess s (ProcessReply r s)
| ^^^^^^^^^^^^^^^^
[10 of 11] Compiling Control.Distributed.Process.ManagedProcess
src/Control/Distributed/Process/ManagedProcess.hs:654:1: warning: [-Wunused-imports]
The qualified import of Control.Distributed.Process.ManagedProcess.Server.Restricted is redundant
except perhaps to import instances from Control.Distributed.Process.ManagedProcess.Server.Restricted
To import instances alone, use: import Control.Distributed.Process.ManagedProcess.Server.Restricted()
|
654 | import qualified Control.Distributed.Process.ManagedProcess.Server.Restricted as R
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[11 of 11] Compiling Control.Distributed.Process.ManagedProcess.UnsafeClient
src/Control/Distributed/Process/ManagedProcess/UnsafeClient.hs:144:25: warning: [GHC-30606] [-Wredundant-constraints]
" Redundant constraint: NFSerializable b
In the type signature for:
decodeResult :: NFSerializable b =>
Maybe (Either ExitReason b) -> Process (Maybe b)
" In an equation for callTimeout:
callTimeout s m d
= unsafeInitCall s m >>= waitResponse (Just d) >>= decodeResult
where
decodeResult ::
(NFSerializable b) =>
Maybe (Either ExitReason b) -> Process (Maybe b)
decodeResult Nothing = return Nothing
decodeResult (Just (Right result)) = return $ Just result
decodeResult (Just (Left reason)) = die reason
|
144 | where decodeResult :: (NFSerializable b)
| ^^^^^^^^^^^^^^^^^^
Preprocessing test suite 'ManagedProcessTests' for distributed-process-client-server-0.2.6.0..
Building test suite 'ManagedProcessTests' for distributed-process-client-server-0.2.6.0..
[1 of 6] Compiling Counter
[2 of 6] Compiling MathsDemo
tests/MathsDemo.hs:51:26: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type String not matched:
[]
(p:_) where p is not one of {'s'}
['s']
('s':p:_) where p is not one of {'t'}
...
|
51 | , action (\("stop") -> stop_ ExitNormal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[3 of 6] Compiling SafeCounter
[4 of 6] Compiling TestUtils
[5 of 6] Compiling ManagedProcessCommon
tests/ManagedProcessCommon.hs:62:30: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type (), (String, ProcessId) not matched:
_ ([], _)
_ ((p:_), _) where p is not one of {'p'}
_ (['p'], _)
_ (('p':p:_), _) where p is not one of {'i'}
...
|
62 | , handleCast (\s' ("ping", pid :: ProcessId) ->
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
tests/ManagedProcessCommon.hs:65:30: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type (String, Delay) not matched:
([], _)
((p:_), _) where p is not one of {'t'}
(['t'], _)
(('t':p:_), _) where p is not one of {'i'}
...
|
65 | (\("timeout", d) -> timeoutAfter_ d)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/ManagedProcessCommon.hs:67:30: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type (String, TimeInterval) not matched:
([], _)
((p:_), _) where p is not one of {'h'}
(['h'], _)
(('h':p:_), _) where p is not one of {'i'}
...
|
67 | , handleCast_ (\("hibernate", d :: TimeInterval) -> hibernate_ d)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 6] Compiling Main
tests/TestManagedProcess.hs:200:5: warning: [GHC-68441] [-Wdeprecations]
In the use of times
(imported from Control.Distributed.Process.Extras, but defined in Control.Distributed.Process.Extras.Internal.Primitives):
Deprecated: "use replicateM_ instead"
|
200 | 9 `times` (void $ incCount pid)
| ^^^^^^^
[7 of 7] Linking /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/distributed-process-client-server-0.2.6.0/noopt/build/ManagedProcessTests/ManagedProcessTests
Preprocessing test suite 'PrioritisedProcessTests' for distributed-process-client-server-0.2.6.0..
Building test suite 'PrioritisedProcessTests' for distributed-process-client-server-0.2.6.0..
[1 of 3] Compiling TestUtils
[2 of 3] Compiling ManagedProcessCommon
tests/ManagedProcessCommon.hs:62:30: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type (), (String, ProcessId) not matched:
_ ([], _)
_ ((p:_), _) where p is not one of {'p'}
_ (['p'], _)
_ (('p':p:_), _) where p is not one of {'i'}
...
|
62 | , handleCast (\s' ("ping", pid :: ProcessId) ->
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
tests/ManagedProcessCommon.hs:65:30: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type (String, Delay) not matched:
([], _)
((p:_), _) where p is not one of {'t'}
(['t'], _)
(('t':p:_), _) where p is not one of {'i'}
...
|
65 | (\("timeout", d) -> timeoutAfter_ d)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/ManagedProcessCommon.hs:67:30: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type (String, TimeInterval) not matched:
([], _)
((p:_), _) where p is not one of {'h'}
(['h'], _)
(('h':p:_), _) where p is not one of {'i'}
...
|
67 | , handleCast_ (\("hibernate", d :: TimeInterval) -> hibernate_ d)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[3 of 3] Compiling Main
[4 of 4] Linking /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/distributed-process-client-server-0.2.6.0/noopt/build/PrioritisedProcessTests/PrioritisedProcessTests
Running 2 test suites...
Test suite ManagedProcessTests: RUNNING...
Test suite ManagedProcessTests: PASS
Test suite logged to:
/home/builder/builder-dir/build-cache/tmp-install/reports/distributed-process-client-server-0.2.6.0.test
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Timer.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Internal.GenProcess.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Internal.Types.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.Restricted.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.UnsafeClient.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Client.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.hs.html
Writing: hpc_index.html
Writing: hpc_index_fun.html
Writing: hpc_index_alt.html
Writing: hpc_index_exp.html
Test coverage report written to
/home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/distributed-process-client-server-0.2.6.0/noopt/hpc/vanilla/html/ManagedProcessTests/hpc_index.html
Test suite PrioritisedProcessTests: RUNNING...
Test suite PrioritisedProcessTests: PASS
Test suite logged to:
/home/builder/builder-dir/build-cache/tmp-install/reports/distributed-process-client-server-0.2.6.0.test
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Timer.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Internal.GenProcess.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Internal.Types.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.Gen.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.Priority.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.UnsafeClient.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Client.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.hs.html
Writing: hpc_index.html
Writing: hpc_index_fun.html
Writing: hpc_index_alt.html
Writing: hpc_index_exp.html
Test coverage report written to
/home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/distributed-process-client-server-0.2.6.0/noopt/hpc/vanilla/html/PrioritisedProcessTests/hpc_index.html
2 of 2 test suites (2 of 2 test cases) passed.
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Client.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Internal.GenProcess.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Internal.Types.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.Gen.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.Priority.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Server.Restricted.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.Timer.hs.html
Writing: distributed-process-client-server-0.2.6.0-inplace/Control.Distributed.Process.ManagedProcess.UnsafeClient.hs.html
Writing: hpc_index.html
Writing: hpc_index_fun.html
Writing: hpc_index_alt.html
Writing: hpc_index_exp.html
Package coverage report written to
/home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/distributed-process-client-server-0.2.6.0/noopt/hpc/vanilla/html/distributed-process-client-server-0.2.6.0/hpc_index.html