Remove unused code in highlighter

RubenVerg · Aug 2, 2024 · ba3d554 · ba3d554
1 parent a1a2821
commit ba3d554
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/docs/interpreters/latest/tinyapl-js.wasm b/docs/interpreters/latest/tinyapl-js.wasm
diff --git a/src/TinyAPL/Highlighter.hs b/src/TinyAPL/Highlighter.hs
@@ -23,20 +23,14 @@ data Color
   | CComment
   deriving (Enum, Show)
 
-data In
-  = Default
-  | String
-  | Comment
-
 data HState = HState
-  { hIn :: In
-  , hColors :: [Color]
+  { hColors :: [Color]
   , hStr :: String }
 
 type HSt = State HState
 
 highlight :: String -> [Color]
-highlight str = reverse $ hColors $ execState hl (HState Default [] str) where
+highlight str = reverse $ hColors $ execState hl (HState [] str) where
   atEnd :: HSt Bool
   atEnd = do
     str <- gets hStr