1 files changed, 0 insertions, 13 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 87b38bf..1aed50e 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -409,22 +409,9 @@ instance ASN1Object RSAPrivateKey where
 
 
 
-uncamel :: String -> String
-uncamel str = unwords $ firstWord ++ (toLower .: otherWords) ++ args
-  where
-    (.:) = fmap . fmap
-    ( firstWord  ,
-      otherWords ) = splitAt 1 ws
-    ws             = camel >>= groupBy (\_ c -> isLower c)
-    ( camel, args) = splitAt 1 $ words str
-
 reportString :: KikiReportAction -> String
 reportString x = uncamel $ show x
 
-errorString :: KikiCondition a -> String
-errorString (KikiSuccess {}) = "success"
-errorString e = uncamel . show $ fmap (const ()) e
-
 -- | Errors in kiki are indicated by the returning of this record.
 data KikiResult a = KikiResult
     { kikiCondition :: KikiCondition a