From 9a78532a862feebc4e4119cf61b97ed635426dd5 Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 17 Apr 2014 23:42:34 -0400 Subject: fixed kiki to compile (todo stubs) --- KeyRing.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'KeyRing.hs') 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 + +-} -- cgit v1.2.3