CrystalSplitter/ghcitui
1
1
Fork 0
mirror of https://github.com/CrystalSplitter/ghcitui.git synced 2024-09-11 10:55:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Doc fix/formatting for AppState

Browse Source
This commit is contained in:
CrystalSplitter 2023-12-09 18:07:14 -08:00 committed by Jordan R AW
parent 74eb4f136b
commit f3472f1074
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/AppState.hs
View File

@ -37,7 +37,7 @@ import qualified Loc
data ActiveWindow = ActiveCodeViewport | ActiveLiveInterpreter | ActiveInfoWindow
deriving (Show, Eq, Ord)
{- | Size information of the current GHCiDTUI main boxes.
{- | Size information of the current GHCiTUI main boxes.
type WindowSizes = [(ActiveWindow, (Maybe Int, Maybe Int))]
-}
@ -167,9 +167,10 @@ makeInitialState
makeInitialState appConfig target cwd = do
let cwd' = if null cwd then "." else cwd
let fullCmd = getCmd appConfig <> " " <> target
interpState <- Daemon.run (Daemon.startup (T.unpack fullCmd) cwd') >>= \case
Right i -> pure i
Left er -> error (show er)
interpState <-
Daemon.run (Daemon.startup (T.unpack fullCmd) cwd') >>= \case
Right i -> pure i
Left er -> error (show er)
splashContents <-
catch
(Just <$> (T.readFile =<< resolveStartupSplashPath appConfig))