aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Pairing.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-13 00:57:52 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-13 00:57:52 -0400
commitdf337bb63b4ed6e5d2ce563ec89d28d192e791db (patch)
tree638813a415727b8a5441ba450e20e6dc2632c970 /Assistant/Pairing.hs
parenta3913f52e52777b18bd8e50ff593a4f4085e8b93 (diff)
hlint
Diffstat (limited to 'Assistant/Pairing.hs')
-rw-r--r--Assistant/Pairing.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs
index 662654255..6df54873a 100644
--- a/Assistant/Pairing.hs
+++ b/Assistant/Pairing.hs
@@ -34,7 +34,7 @@ newtype PairMsg = PairMsg (Verifiable (PairStage, PairData, SomeAddr))
verifiedPairMsg :: PairMsg -> PairingInProgress -> Bool
verifiedPairMsg (PairMsg m) pip = verify m $ inProgressSecret pip
-fromPairMsg :: PairMsg -> (Verifiable (PairStage, PairData, SomeAddr))
+fromPairMsg :: PairMsg -> Verifiable (PairStage, PairData, SomeAddr)
fromPairMsg (PairMsg m) = m
pairMsgStage :: PairMsg -> PairStage