mirror of
https://github.com/CrystalSplitter/ghcitui.git
synced 2024-09-11 10:55:29 +03:00
Add deriving Show to various data types
Mostly for better debugging.
This commit is contained in:
parent
4987c7a49a
commit
040e7bce79
@ -43,7 +43,7 @@ data AppConfig = AppConfig
|
|||||||
-- ^ Command to run to initialise the interpreter.
|
-- ^ Command to run to initialise the interpreter.
|
||||||
, getStartupCommands :: ![T.Text]
|
, getStartupCommands :: ![T.Text]
|
||||||
-- ^ Commands to run in ghci during start up.
|
-- ^ Commands to run in ghci during start up.
|
||||||
}
|
} deriving (Show)
|
||||||
|
|
||||||
defaultConfig :: AppConfig
|
defaultConfig :: AppConfig
|
||||||
defaultConfig =
|
defaultConfig =
|
||||||
|
@ -32,7 +32,7 @@ data AppInterpState s n = AppInterpState
|
|||||||
, _cmdHistory :: ![[s]]
|
, _cmdHistory :: ![[s]]
|
||||||
, historyPos :: !Int
|
, historyPos :: !Int
|
||||||
-- ^ Current position
|
-- ^ Current position
|
||||||
}
|
} deriving (Show)
|
||||||
|
|
||||||
-- | Lens accessor for the editor. See '_liveEditor'.
|
-- | Lens accessor for the editor. See '_liveEditor'.
|
||||||
liveEditor :: Lens.Lens' (AppInterpState s n) (BE.Editor s n)
|
liveEditor :: Lens.Lens' (AppInterpState s n) (BE.Editor s n)
|
||||||
|
@ -67,6 +67,7 @@ data WidgetSizes = WidgetSizes
|
|||||||
{ _wsInfoWidth :: !Int
|
{ _wsInfoWidth :: !Int
|
||||||
, _wsReplHeight :: !Int
|
, _wsReplHeight :: !Int
|
||||||
}
|
}
|
||||||
|
deriving (Show)
|
||||||
|
|
||||||
{- | Application state wrapper.
|
{- | Application state wrapper.
|
||||||
|
|
||||||
@ -106,6 +107,7 @@ data AppState n = AppState
|
|||||||
, splashContents :: !(Maybe T.Text)
|
, splashContents :: !(Maybe T.Text)
|
||||||
-- ^ Splash to show on start up.
|
-- ^ Splash to show on start up.
|
||||||
}
|
}
|
||||||
|
deriving (Show)
|
||||||
|
|
||||||
newtype AppStateM m a = AppStateM {runAppStateM :: m a}
|
newtype AppStateM m a = AppStateM {runAppStateM :: m a}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user