mirror of
https://github.com/CrystalSplitter/ghcitui.git
synced 2024-09-11 10:55:29 +03:00
Doc fix/formatting for AppState
This commit is contained in:
parent
74eb4f136b
commit
f3472f1074
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user