Disable third party caveats

diff --git a/README.md b/README.md
index 97fc53e98d5109c2155a4d43eaed28acf382f2f2..ea1a1e66b81eb033238978e3d7e5d2c6d86adce6 100644 (file)
--- a/README.md
+++ b/README.md
@@ -33,6 +33,7 @@ Implementations
 TODO
 ====
 
+- Third party caveats
 - Verify Macaroons
 - Discharge Macaroons
 - JSON serialization

diff --git a/src/Crypto/Macaroon.hs b/src/Crypto/Macaroon.hs
index 36aecf93e074e8e58154123bac897c7baae269f6..f955ab87c19dec8cf6f80f744494be9bf5c60b24 100644 (file)
--- a/src/Crypto/Macaroon.hs
+++ b/src/Crypto/Macaroon.hs
@@ -41,7 +41,7 @@ module Crypto.Macaroon (
     , create
     , inspect
     , addFirstPartyCaveat
-    , addThirdPartyCaveat
+    -- , addThirdPartyCaveat
     ) where
 
 import           Crypto.Cipher.AES

diff --git a/test/Crypto/Macaroon/Tests.hs b/test/Crypto/Macaroon/Tests.hs
index 6fa6504c2f8192d17839965281037fca2d76e53b..244ec50418f9b7fb751eec139cd0d50ab3a83760 100644 (file)
--- a/test/Crypto/Macaroon/Tests.hs
+++ b/test/Crypto/Macaroon/Tests.hs
@@ -24,7 +24,7 @@ tests :: TestTree
 tests = testGroup "Crypto.Macaroon" [ basic
                                     , minted
                                     , minted2
-                                    , minted3
+                                    -- , minted3
                                     ]
 
 
@@ -93,20 +93,20 @@ mint2Trimmed = testCase "Serialization" $
 mint2Des = testCase "Deserialization" $
     Right m3 @=? (deserialize . serialize) m3
 
-m4 :: Macaroon
-m4 = addThirdPartyCaveat caveat_key caveat_id caveat_loc n
-  where
-    n = addFirstPartyCaveat "account = 3735928559" $ create sec key loc
-    key = B8.pack "we used our other secret key"
-    loc = B8.pack "http://mybank/"
-    sec = B8.pack "this is a different super-secret key; never use the same secret twice"
-    caveat_key = B8.pack "4; guaranteed random by a fair toss of the dice"
-    caveat_id = B8.pack "this was how we remind auth of key/pred"
-    caveat_loc = B8.pack "http://auth.mybank/"
+-- m4 :: Macaroon
+-- m4 = addThirdPartyCaveat caveat_key caveat_id caveat_loc n
+--   where
+--     n = addFirstPartyCaveat "account = 3735928559" $ create sec key loc
+--     key = B8.pack "we used our other secret key"
+--     loc = B8.pack "http://mybank/"
+--     sec = B8.pack "this is a different super-secret key; never use the same secret twice"
+--     caveat_key = B8.pack "4; guaranteed random by a fair toss of the dice"
+--     caveat_id = B8.pack "this was how we remind auth of key/pred"
+--     caveat_loc = B8.pack "http://auth.mybank/"
 
-minted3 :: TestTree
-minted3 = testGroup "Macaroon with first and third party caveats" [ mint3sig ]
+-- minted3 :: TestTree
+-- minted3 = testGroup "Macaroon with first and third party caveats" [ mint3sig ]
 
 
-mint3sig = testCase "Signature" $
-    "6B99EDB2EC6D7A4382071D7D41A0BF7DFA27D87D2F9FEA86E330D7850FFDA2B2" @=? (hex . signature) m4
+-- mint3sig = testCase "Signature" $
+--     "6B99EDB2EC6D7A4382071D7D41A0BF7DFA27D87D2F9FEA86E330D7850FFDA2B2" @=? (hex . signature) m4