mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-11 10:35:57 +03:00
Merge pull request #95 from sfultong/topic/cpp-fix
fix cpp preprocessing
This commit is contained in:
commit
f0082af4ec
@ -38,11 +38,11 @@ main :: IO ()
|
||||
main = Mux.uniqueChannel >>= \rand ->
|
||||
let
|
||||
h bytes = BA.convert (hash bytes :: Digest Blake2b_512)
|
||||
#ifdef leveldb
|
||||
#ifdef leveldb
|
||||
blockstore = LDBS.make rand h "blockstore.leveldb"
|
||||
#else
|
||||
#else
|
||||
blockstore = FBS.make' rand h "blockstore"
|
||||
#endif
|
||||
#endif
|
||||
locker _ = pure held
|
||||
held = Lock (pure (Just (Lease (pure True) (pure ()))))
|
||||
mkNode _ = do -- todo: actually use node params
|
||||
@ -64,11 +64,11 @@ main = Mux.uniqueChannel >>= \rand ->
|
||||
P.std_in = P.CreatePipe,
|
||||
P.std_err = P.CreatePipe }
|
||||
in do
|
||||
#ifdef leveldb
|
||||
#ifdef leveldb
|
||||
putStrLn "using leveldb-based block store"
|
||||
#else
|
||||
#else
|
||||
putStrLn "using file-based block store"
|
||||
#endif
|
||||
#endif
|
||||
blockstore <- blockstore
|
||||
send <- C.make blockstore locker protocol mkNode launchNode
|
||||
S.scotty 8081 $ do
|
||||
|
Loading…
Reference in New Issue
Block a user