urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 17:32:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

Can now fully replay my fakezod's event log!

Browse Source
This commit is contained in:
Benjamin Summers 2019-06-30 21:55:45 -07:00
parent af1055b0f6
commit d0893ae234
1 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
pkg/hs-urbit/lib/Vere/Pier/Types.hs
View File

@ -39,19 +39,33 @@ data NewtEx = NE Word
data Eff data Eff
= HttpServer Server.Eff = HttpServer Server.Eff
| HttpClient Client.Eff | HttpClient Client.Eff
| Init
| Doze (Maybe Wen)
| Form Noun
| Behn Noun
| Clay Noun
| Boat Noun
| Sync Noun
| Newt Noun
| Ames Noun | Ames Noun
| Term Noun | Bbye Noun
| Behn Noun
| Blit [Blit] | Blit [Blit]
| Boat Noun
| Clay Noun
| Crud Noun
| Dirk Noun
| Doze (Maybe Wen)
| Ergo Noun
| Exit Noun
| Flog Noun
| Form Noun
| Hill [Term] | Hill [Term]
| Init
| Logo Noun
| Mass Noun
| Newt Noun
| Ogre Noun
| Send [Blit]
| Sync Noun
| Term Noun
| Thou Noun
| Turf (Maybe (PutDel, [Text])) -- TODO Unsure | Turf (Maybe (PutDel, [Text])) -- TODO Unsure
| Vega Noun
| West Noun
| Woot Noun
deriving (Eq, Ord, Show) deriving (Eq, Ord, Show)
newtype Path = Path [Knot] newtype Path = Path [Knot]