From 235e2207e8cdc8ab1fb7b1168d5300aa4e1638bc Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 18 Mar 2016 11:59:37 -0400 Subject: [PATCH] Stub in a Fix type for the sake of experimentation. --- src/Alignment.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Alignment.hs b/src/Alignment.hs index 362fc554b..e85575076 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -104,3 +104,6 @@ openRange source range = (at source <$> maybeLastIndex range) /= Just '\n' -- | A row in a split diff, composed of a before line and an after line. type Row a = Both (Line a) + +-- | A fixpoint over a functor. +newtype Fix f = Fix { unFix :: f (Fix f) }