Skip to content
Snippets Groups Projects
Commit ea08dbaa authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

Fix compiler warnings

parent c9bee421
Branches
No related tags found
No related merge requests found
...@@ -6,8 +6,6 @@ module CFG.Sanitize ...@@ -6,8 +6,6 @@ module CFG.Sanitize
) where ) where
import Data.Char import Data.Char
import Data.List
import Data.Maybe
import Data.Monoid import Data.Monoid
import qualified Data.Text as T import qualified Data.Text as T
......
...@@ -164,7 +164,7 @@ parseLine handle = do ...@@ -164,7 +164,7 @@ parseLine handle = do
Nothing -> error $ "Parser error in line " <> T.unpack line Nothing -> error $ "Parser error in line " <> T.unpack line
Just (DecisionRequest num) -> Just (DecisionRequest num) ->
return $ Decision num return $ Decision num
Just (BeforeSyscall state call func) -> Just (BeforeSyscall _ call _) ->
return $ Syscall call return $ Syscall call
Just (AtBasicBlock state abb func) -> Just (AtBasicBlock state abb func) ->
return $ NewVertex (Vertex state abb func) return $ NewVertex (Vertex state abb func)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment