1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00

Stub in a Fix type for the sake of experimentation.

This commit is contained in:
Rob Rix 2016-03-18 11:59:37 -04:00
parent daba89d6b0
commit 235e2207e8

View File

@ -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) }