fixed kiki to compile (todo stubs)

1 files changed, 3 insertions, 2 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 6fac344..95c348e 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -150,8 +150,6 @@ filesToLock k secring pubring = do
 -- kret :: a -> KeyRingData a
 -- kret x = KeyRingData Map.empty Nothing (KeyRingAction x)
 
-todo = error "unimplemented"
-
 data RSAPublicKey = RSAKey MPI MPI deriving (Eq,Show)
 data PKCS8_RSAPublicKey = RSAKey8 MPI MPI deriving Show
 
@@ -1971,6 +1969,7 @@ fmapWithRT g (MultiPass p atn next) = MultiPass p atn next'
 instance Functor Kiki where
     fmap f k = fmapWithRT (return f) k
 
+{-
 instance Monad Kiki where
     return x = SinglePass todo (return x)
     k >>= f  = kjoin $ fmap f k
@@ -2099,3 +2098,5 @@ keyBySpec = todo
 
 walletInputFormat :: Packet -> String
 walletInputFormat = todo
+
+-}