From f79d04e43774393dd55089a975ab10ed6c6f234b Mon Sep 17 00:00:00 2001 From: joshvera Date: Wed, 12 Oct 2016 19:26:15 -0400 Subject: [PATCH] add type --- src/Diffing.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Diffing.hs b/src/Diffing.hs index c7afd0ea7..b057c80dd 100644 --- a/src/Diffing.hs +++ b/src/Diffing.hs @@ -62,6 +62,7 @@ diffFiles parser renderer sourceBlobs = do Free (info :< _) -> cost <$> info Pure patch -> uncurry both (fromThese 0 0 (unPatch (cost . extract <$> patch))) +getLabel :: HasField fields Category => CofreeF (Syntax leaf) (Record fields) b -> (Category, Maybe leaf) getLabel (h :< t) = (category h, case t of Leaf s -> Just s _ -> Nothing)