From ba25f0c5644c37289daa784ac2b6dc593eabbf0f Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 21 Feb 2024 06:34:13 +0300
Subject: [PATCH] refactored

---
 hbs2-peer/app/Brains.hs | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/hbs2-peer/app/Brains.hs b/hbs2-peer/app/Brains.hs
index 282ccbfb..bc39df4e 100644
--- a/hbs2-peer/app/Brains.hs
+++ b/hbs2-peer/app/Brains.hs
@@ -720,18 +720,12 @@ newBasicBrains :: forall e m . (Hashable (Peer e), MonadIO m)
                -> m (BasicBrains e)
 
 newBasicBrains cfg = liftIO do
-  stateDb <-
-      flip runReaderT cfg (cfgValue @PeerBrainsDBPath @(Maybe String))
-          >>= maybe
-              ( do
-                  sdir <- peerStateDirDefault
-                  liftIO $ createDirectoryIfMissing True sdir
-                  pure $ sdir </> "brains.db"
-              )
-              ( \p ->
-                  p <$ do
-                      liftIO $ createDirectoryIfMissing True (takeDirectory p)
-              )
+
+  stateDbFile <- runReaderT (cfgValue @PeerBrainsDBPath @(Maybe String)) cfg
+
+  stateDb <- maybe (peerStateDirDefault <&> (</> "brains.db")) pure stateDbFile
+
+  liftIO $ createDirectoryIfMissing True (takeDirectory stateDb)
 
   brains <- runReaderT (cfgValue @PeerBrainsDb @(Maybe String)) cfg
               <&> fromMaybe ":memory:"