github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

Import Cofree.

Browse Source
This commit is contained in:
Rob Rix 2015-11-17 14:07:36 -08:00
parent 87269517dd
commit 6652ef6b3f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Diff.hs
View File

@ -7,9 +7,7 @@ import Data.Maybe
import Data.Map
import Control.Monad.Free
import Data.Fix
data Cofree f a = Unroll a (f (Cofree f a))
deriving Functor
import Control.Comonad.Cofree
data Range = Range { start :: Int, end :: Int }