fixed error and action reporting

1 files changed, 18 insertions, 0 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 78fb40c..532acb8 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -10,6 +10,8 @@ module KeyRing
     , KikiResult(..)
     , KikiCondition(..)
     , KikiReportAction(..)
+    , errorString
+    , reportString
     , KeyRingRuntime(..)
     , InputFile(..)
     , FileType(..)
@@ -394,6 +396,22 @@ data KikiReportAction =
         | HostsDiff ByteString
  deriving Show
 
+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
+
 data KikiResult a = KikiResult
     { kikiCondition :: KikiCondition a
     , kikiReport :: [ (FilePath, KikiReportAction) ]