Fix left clicks in terminals

src/Dodge/Data/Terminal.hs

@@ -46,7 +46,7 @@ data Terminal = Terminal
     , _tmStatus :: TerminalStatus
     , _tmCommandHistory :: [String]
     , _tmToggles :: M.Map String TerminalToggle
-    , _tmPartialCommand :: Maybe String
+    , _tmPartialCommand :: Maybe TerminalCommand
     }
     --deriving (Eq, Show, Read) --, Generic)
     --h--deriving (Eq, Show, Read) --Generic, Flat)
@@ -58,7 +58,7 @@ data TmTm
     = TmId
     | TmTmClearDisplayedLines
     | TmTmSetStatus TerminalStatus
-    | TmTmSetPartialCommand (Maybe String)
+    | TmTmSetPartialCommand (Maybe TerminalCommand)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data TerminalLine
@@ -126,15 +126,17 @@ makeLenses ''TerminalLine
 makeLenses ''TerminalToggle
 makeLenses ''EffectArguments
 makeLenses ''TerminalCommand
-deriveJSON defaultOptions ''TerminalStatus
-deriveJSON defaultOptions ''TerminalInput
-deriveJSON defaultOptions ''TerminalLineString
-deriveJSON defaultOptions ''TmTm
-deriveJSON defaultOptions ''TerminalLine
-deriveJSON defaultOptions ''TerminalBootProgram
-deriveJSON defaultOptions ''BlBl
-deriveJSON defaultOptions ''TerminalToggle
-deriveJSON defaultOptions ''EffectArguments
-deriveJSON defaultOptions ''TerminalCommandEffect
-deriveJSON defaultOptions ''TerminalCommand
-deriveJSON defaultOptions ''Terminal
+concat <$> mapM (deriveJSON defaultOptions)
+    [ ''TerminalStatus
+    , ''TerminalInput
+    , ''TerminalLineString
+    , ''TmTm
+    , ''TerminalLine
+    , ''TerminalBootProgram
+    , ''BlBl
+    , ''TerminalToggle
+    , ''EffectArguments
+    , ''TerminalCommandEffect
+    , ''TerminalCommand
+    , ''Terminal
+    ]