Refactor: Extracted variable to it easier to understand

ndmitchell · Feb 8, 2024 · 764d416 · 764d416
1 parent 2336280
commit 764d416
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Action/CmdLine.hs b/src/Action/CmdLine.hs
@@ -83,9 +83,8 @@ defaultDatabaseLang lang = do
     xdgLocation <- getXdgDirectory XdgData "hoogle"
     legacyLocation <- getAppUserDataDirectory "hoogle"
     canIgnoreLegacyPath <- not <$> doesPathExist legacyLocation
-    pure $
-        (if canIgnoreLegacyPath then xdgLocation else legacyLocation) </>
-            "default-" ++ lower (show lang) ++ "-" ++ showVersion (trimVersion 3 version) ++ ".hoo"
+    let dir = if canIgnoreLegacyPath then xdgLocation else legacyLocation
+    pure $ dir </> "default-" ++ lower (show lang) ++ "-" ++ showVersion (trimVersion 3 version) ++ ".hoo"
 
 getCmdLine :: [String] -> IO CmdLine
 getCmdLine args = do