diff options
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -150,8 +150,6 @@ filesToLock k secring pubring = do | |||
150 | -- kret :: a -> KeyRingData a | 150 | -- kret :: a -> KeyRingData a |
151 | -- kret x = KeyRingData Map.empty Nothing (KeyRingAction x) | 151 | -- kret x = KeyRingData Map.empty Nothing (KeyRingAction x) |
152 | 152 | ||
153 | todo = error "unimplemented" | ||
154 | |||
155 | data RSAPublicKey = RSAKey MPI MPI deriving (Eq,Show) | 153 | data RSAPublicKey = RSAKey MPI MPI deriving (Eq,Show) |
156 | data PKCS8_RSAPublicKey = RSAKey8 MPI MPI deriving Show | 154 | data PKCS8_RSAPublicKey = RSAKey8 MPI MPI deriving Show |
157 | 155 | ||
@@ -1971,6 +1969,7 @@ fmapWithRT g (MultiPass p atn next) = MultiPass p atn next' | |||
1971 | instance Functor Kiki where | 1969 | instance Functor Kiki where |
1972 | fmap f k = fmapWithRT (return f) k | 1970 | fmap f k = fmapWithRT (return f) k |
1973 | 1971 | ||
1972 | {- | ||
1974 | instance Monad Kiki where | 1973 | instance Monad Kiki where |
1975 | return x = SinglePass todo (return x) | 1974 | return x = SinglePass todo (return x) |
1976 | k >>= f = kjoin $ fmap f k | 1975 | k >>= f = kjoin $ fmap f k |
@@ -2099,3 +2098,5 @@ keyBySpec = todo | |||
2099 | 2098 | ||
2100 | walletInputFormat :: Packet -> String | 2099 | walletInputFormat :: Packet -> String |
2101 | walletInputFormat = todo | 2100 | walletInputFormat = todo |
2101 | |||
2102 | -} | ||