github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Remove the fixtures.

Browse Source
This commit is contained in:
Rob Rix 2015-11-20 08:12:00 -08:00
parent 2dbb4c56a4
commit 28f93515bb
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
app/Main.hs
View File

@ -8,20 +8,7 @@ import Control.Comonad.Cofree
import Control.Monad.Free
import Data.Map
a :: Term String ()
a = () :< (Keyed $ fromList [
("hello", () :< Indexed [ () :< Leaf "hi" ]),
("goodbye", () :< Leaf "goodbye") ])
b :: Term String ()
b = () :< (Keyed $ fromList [
("hello", () :< Indexed []),
("goodbye", () :< Indexed []) ])
d :: Diff String ()
d = Free . Annotated ((), ()) . Keyed $ fromList [
("hello", Free . Annotated ((), ()) $ Indexed [ Pure . Delete $ () :< Leaf "hi" ]),
("goodbye", Pure $ Replace (() :< Leaf "goodbye") (() :< Indexed [])) ]
main :: IO ()
main = putStrLn "hello world"