From 321afa427ef8efcf34f5b2aa0d327f7d1e6715f8 Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Sun, 30 Jun 2019 17:38:17 -0700 Subject: [PATCH] Remove unused parse-time AST warnings --- src/ShellCheck/Parser.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/ShellCheck/Parser.hs b/src/ShellCheck/Parser.hs index e00e1f5..059f03b 100644 --- a/src/ShellCheck/Parser.hs +++ b/src/ShellCheck/Parser.hs @@ -138,7 +138,6 @@ almostSpace = return ' ' --------- Message/position annotation on top of user state -data Note = Note Id Severity Code String deriving (Show, Eq) data ParseNote = ParseNote SourcePos SourcePos Severity Code String deriving (Show, Eq) data Context = ContextName SourcePos String @@ -166,10 +165,6 @@ initialUserState = UserState { } codeForParseNote (ParseNote _ _ _ code _) = code -noteToParseNote map (Note id severity code message) = - ParseNote pos pos severity code message - where - pos = fromJust $ Map.lookup id map getLastId = lastId <$> getState