unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-25 09:17:27 +03:00
Code Issues Projects Releases Wiki Activity

Updated node to work with tweaked BasicNode, just needs a From/ToJSON DFO instance

Browse Source
This commit is contained in:
Paul Chiusano 2015-09-30 14:52:54 -04:00
parent dc50bee8c0
commit 6a95f53640
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
node/src/Node.hs
View File

@ -9,8 +9,8 @@ import Unison.Term.Extra ()
import Unison.Hash.Extra ()
import Unison.Node.Store (Store)
import Unison.Var (Var)
import qualified Unison.Hash
import qualified Unison.ABT as ABT
import qualified Unison.Hash
import qualified Unison.Hash as Hash
import qualified Unison.Node.BasicNode as BasicNode
import qualified Unison.Node.FileStore as FileStore
@ -18,13 +18,14 @@ import qualified Unison.NodeServer as NodeServer
import qualified Unison.Reference as Reference
import qualified Unison.Symbol as Symbol
import qualified Unison.Term as Term
import qualified Unison.View as View
hash :: (Serial v, Var v) => Term.Term v -> Reference
hash :: Var v => Term.Term v -> Reference
hash (Term.Ref' r) = r
hash t = Reference.Derived (ABT.hash t)
main :: IO ()
main = do
store <- FileStore.make "store" :: IO (Store IO (Symbol.Symbol ()))
store <- FileStore.make "store" :: IO (Store IO (Symbol.Symbol View.DFO))
node <- BasicNode.make hash store
NodeServer.server 8080 node