HLint failed with status: 1. Warning (7), Suggestion (24)

Data constructor not in scope: Subtract :: Operator

Data constructor not in scope: Multiply :: Operator

Data constructor not in scope: Divide :: Operator

Data constructor not in scope: Divide :: Operator

Process completed with exit code 2.

Suggestion in convert in module CompiletoVm: Redundant bracket ▫︎ Found: "(fst (getList (fromIntegral (lenList :: Int32) :: Int) remfile []))\n ++ [(Vm.PushList (fromIntegral (lenList :: Int32) :: Int))]" ▫︎ Perhaps: "fst (getList (fromIntegral (lenList :: Int32) :: Int) remfile [])\n ++ [(Vm.PushList (fromIntegral (lenList :: Int32) :: Int))]"

Suggestion in convert in module CompiletoVm: Redundant bracket ▫︎ Found: "[(Vm.PushList (fromIntegral (lenList :: Int32) :: Int))]" ▫︎ Perhaps: "[Vm.PushList (fromIntegral (lenList :: Int32) :: Int)]"

Suggestion in getList in module CompiletoVm: Redundant bracket ▫︎ Found: "[(Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int)))]" ▫︎ Perhaps: "[Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int))]"

Suggestion in getList in module CompiletoVm: Redundant bracket ▫︎ Found: "inst\n ++\n (fst (getList (fromIntegral (lenList :: Int32) :: Int) remfile []))" ▫︎ Perhaps: "inst\n ++\n fst (getList (fromIntegral (lenList :: Int32) :: Int) remfile [])"

Suggestion in Parser in module Parse: Use newtype instead of data ▫︎ Found: "data Parser a\n = Parser {runParser :: Position\n -> String -> Either String (a, String, Position)}" ▫︎ Perhaps: "newtype Parser a\n = Parser {runParser :: Position\n -> String -> Either String (a, String, Position)}" ▫︎ Note: decreases laziness

Warning in parseElem in module Parse: Use const ▫︎ Found: "\\ x _ -> x" ▫︎ Perhaps: "const"

Suggestion in parseListElem in module Parse: Redundant bracket ▫︎ Found: "case (parseOthers parser pos' s') of\n Left err -> Left err\n Right (res', s'', pos'') -> Right (res : res', s'', pos'')" ▫︎ Perhaps: "case parseOthers parser pos' s' of\n Left err -> Left err\n Right (res', s'', pos'') -> Right (res : res', s'', pos'')"

Suggestion in parseListElem in module Parse: Redundant bracket ▫︎ Found: "case (parseOthers parser pos'' s'') of\n Left err -> Left err\n Right (res', s''', pos''') -> Right (res : res', s''', pos''')" ▫︎ Perhaps: "case parseOthers parser pos'' s'' of\n Left err -> Left err\n Right (res', s''', pos''') -> Right (res : res', s''', pos''')"

Suggestion in parseDefineFn in module Parse: Redundant bracket ▫︎ Found: "parseCmpString \"fn\" *> (Parser defineFn)" ▫︎ Perhaps: "parseCmpString \"fn\" *> Parser defineFn"

Suggestion in parseCond in module Parse: Redundant bracket ▫︎ Found: "((AST.Cond res res' Nothing), s'', pos'')" ▫︎ Perhaps: "(AST.Cond res res' Nothing, s'', pos'')"

The export item ‘module AstEvalSpec’ is missing an export list

The export item ‘module AstOptimizerSpec’ is missing an export list

The export item ‘module CompilerSpec’ is missing an export list

The import of ‘Data.Maybe’ is redundant

The export item ‘module ParserSpec’ is missing an export list