Use the latest packages for building and make truncation optional

Author: adithyaov

cabal.project

@@ -3,15 +3,15 @@ packages: .
 source-repository-package
    type: git
    location: https://github.com/composewell/streamly-process.git
-   tag: master
+   tag: e310c8a9c6e61515373a2f5f1fb82f6e15fe452b
 
 source-repository-package
    type: git
    location: https://github.com/composewell/streamly.git
-   tag: master
+   tag: ff1dd549c630803163f4d0a722e24cbb04961a14
 
 source-repository-package
    type: git
    location: https://github.com/composewell/streamly.git
-   tag: master
+   tag: ff1dd549c630803163f4d0a722e24cbb04961a14
    subdir: core

cli/Main.hs

@@ -79,4 +79,4 @@ main = do
             & Stream.fold (haddockParseFold Removed Removed Removed)
     api2 <- fileToLines file2 & Stream.fold (haddockParseFold Added Added Added)
     step "Printing diff"
-    putStrLn $ prettyAPI False (diffAPI api1 api2)
+    putStrLn $ prettyAPI False Nothing (diffAPI api1 api2)

src/Pretty.hs

@@ -39,18 +39,18 @@ prettyD0 = SMap.foldlWithKey step initial
 
     initial = []
 
-    step a k (Tagged Added b) = unwords ["[A]", k, ":", take 50 (showECT b)] : a
+    step a k (Tagged Added b) = unwords ["[A]", k, ":", showECT b] : a
     step a k (Tagged Removed b) =
-        unwords ["[R]", k, ":", take 50 (showECT b)] : a
-    -- step a k (Tagged Same b) = unwords ["[S]", k, ":", take 50 (showECT b)] : a
+        unwords ["[R]", k, ":", showECT b] : a
+    -- step a k (Tagged Same b) = unwords ["[S]", k, ":", showECT b] : a
     step a _ (Tagged Same _) = a
     step a k (Tagged (Changed b1) b) =
         concat
             [ [unwords ["[C]", k, ":"]]
             , indenter
                   4
-                  [ unwords ["[OLD]", take 50 (showECT b)]
-                  , unwords ["[NEW]", take 50 (showECT b1)]
+                  [ unwords ["[OLD]", showECT b]
+                  , unwords ["[NEW]", showECT b1]
                   ]
             , a
             ]
@@ -85,12 +85,19 @@ prettyMC ctx =
 
 prettyAPI ::
        Bool
+    -> Maybe Int
     -> API (StatusTag ()) (StatusTag ()) (StatusTag EntityContextType)
     -> String
-prettyAPI ignoreInternal = printer . SMap.foldlWithKey step initial
+prettyAPI ignoreInternal trunction =
+    printer . truncator . SMap.foldlWithKey step initial
 
     where
 
+    truncator =
+        case trunction of
+            Just t -> map (take t)
+            Nothing -> id
+
     initial = []
 
     step a _ (Tagged Same _) = a