unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-11 10:35:57 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #95 from sfultong/topic/cpp-fix

Browse Source 
fix cpp preprocessing
This commit is contained in:
Paul Chiusano 2016-08-30 21:06:11 -04:00 committed by GitHub
commit f0082af4ec
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
node/src/Container.hs
View File

@ -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