diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-04-05 22:03:43 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-04-05 22:03:43 +0200 |
| commit | 7a9ef992afa96ed177ae9a4a67d302017ab73852 (patch) | |
| tree | 4c53058ce2ae8015db653326996bfc17a906e72e /src/Service.hs | |
| parent | a8893fbcfa06044e7f999916c4dcc6a2dc907f75 (diff) | |
Fix non-exhaustive pattern match warnings
Diffstat (limited to 'src/Service.hs')
| -rw-r--r-- | src/Service.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Service.hs b/src/Service.hs index 3ef10d6..4fc8335 100644 --- a/src/Service.hs +++ b/src/Service.hs @@ -165,7 +165,7 @@ svcSelf = maybe (throwError "failed to validate own identity") return . validateIdentity . lsIdentity . fromStored =<< svcGetLocal svcPrint :: String -> ServiceHandler s () -svcPrint str = afterCommit . ($str) =<< asks svcPrintOp +svcPrint str = afterCommit . ($ str) =<< asks svcPrintOp replyPacket :: Service s => s -> ServiceHandler s () replyPacket x = tell [ServiceReply (Left x) True] |