feature(readme): add readme.md #143
AxelHumeauTests.yml
on: pull_request
check_compilation
1m 55s
check_style
9s
run_tests
3m 46s
Annotations
1 error and 16 warnings
|
run_tests
Process completed with exit code 2.
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L108
Suggestion in getFnv in module CompiletoVm: Redundant bracket ▫︎ Found: "case\n (decodeOrFail byteString ::\n Either (BIN.ByteString, ByteOffset, String) (BIN.ByteString,\n ByteOffset, Int32))\nof\n Left _ -> (inst, byteString)\n Right (nByteString, _, val)\n -> (getFnv\n 0 byteStringAfterInst\n (inst\n ++\n [Vm.Push\n (Vm.Function\n functionInstruction (fromIntegral (val :: Int32) :: Int))]))\n where\n nbinstruction\n = case\n (decodeOrFail nByteString ::\n Either (BIN.ByteString, ByteOffset, String) (BIN.ByteString,\n ByteOffset, Int32))\n of\n Left _ -> 0\n Right (_, _, valu) -> (fromIntegral (valu :: Int32) :: Int)\n byteStringafterNbInst\n = case\n (decodeOrFail nByteString ::\n Either (BIN.ByteString, ByteOffset, String) (BIN.ByteString,\n ByteOffset, Int32))\n of\n Left _ -> nByteString\n Right (afterNbInst, _, _) -> afterNbInst\n functionInstruction\n = trace\n (\"fucntion instruction: \" ++ show nbinstruction) fst\n (getInstructionFunc nbinstruction byteStringafterNbInst [])\n byteStringAfterInst\n = snd (getInstructionFunc nbinstruction byteStringafterNbInst [])" ▫︎ Perhaps: "case\n (decodeOrFail byteString ::\n Either (BIN.ByteString, ByteOffset, String) (BIN.ByteString,\n ByteOffset, Int32))\nof\n Left _ -> (inst, byteString)\n Right (nByteString, _, val)\n -> getFnv\n 0 byteStringAfterInst\n (inst\n ++\n [Vm.Push\n (Vm.Function\n functionInstruction (fromIntegral (val :: Int32) :: Int))])\n where\n nbinstruction\n = case\n (decodeOrFail nByteString ::\n Either (BIN.ByteString, ByteOffset, String) (BIN.ByteString,\n ByteOffset, Int32))\n of\n Left _ -> 0\n Right (_, _, valu) -> (fromIntegral (valu :: Int32) :: Int)\n byteStringafterNbInst\n = case\n (decodeOrFail nByteString ::\n Either (BIN.ByteString, ByteOffset, String) (BIN.ByteString,\n ByteOffset, Int32))\n of\n Left _ -> nByteString\n Right (afterNbInst, _, _) -> afterNbInst\n functionInstruction\n = trace\n (\"fucntion instruction: \" ++ show nbinstruction) fst\n (getInstructionFunc nbinstruction byteStringafterNbInst [])\n byteStringAfterInst\n = snd (getInstructionFunc nbinstruction byteStringafterNbInst [])"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L128
Suggestion in getArg in module CompiletoVm: Redundant bracket ▫︎ Found: "[(Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int)))]" ▫︎ Perhaps: "[Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int))]"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L142
Suggestion in getArg 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)]"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L147
Suggestion in getArg in module CompiletoVm: Use record patterns ▫︎ Found: "Compiler.Fnv _ _ _ _ _ _" ▫︎ Perhaps: "Compiler.Fnv {}"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L147
Suggestion in getArg in module CompiletoVm: Redundant bracket ▫︎ Found: "inst ++ (fst (getFnv (- 1) remainingfile []))" ▫︎ Perhaps: "inst ++ fst (getFnv (- 1) remainingfile [])"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L157
Suggestion in getInstructionFunc in module CompiletoVm: Redundant bracket ▫︎ Found: "[(Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int)))]" ▫︎ Perhaps: "[Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int))]"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L171
Suggestion in getInstructionFunc 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)]"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L202
Suggestion in getInstructionFunc in module CompiletoVm: Redundant bracket ▫︎ Found: "inst ++ (fst (getFnv (- 1) remainingfile []))" ▫︎ Perhaps: "inst ++ fst (getFnv (- 1) remainingfile [])"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L213
Suggestion in getDefinedValue in module CompiletoVm: Redundant bracket ▫︎ Found: "[(Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int)))]" ▫︎ Perhaps: "[Vm.Push (IntVal (fromIntegral (val :: Int32) :: Int))]"
|
|
check_style:
LobsterLang/src/CompiletoVm.hs#L227
Suggestion in getDefinedValue 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)]"
|
|
run_tests:
LobsterLang/test/AstEvalSpec.hs#L1
The export item ‘module AstEvalSpec’ is missing an export list
|
|
run_tests:
LobsterLang/test/AstOptimizerSpec.hs#L1
The export item ‘module AstOptimizerSpec’ is missing an export list
|
|
run_tests:
LobsterLang/test/CompilerSpec.hs#L1
The export item ‘module CompilerSpec’ is missing an export list
|
|
run_tests:
LobsterLang/test/CompilerSpec.hs#L11
The import of ‘Data.Maybe’ is redundant
|
|
run_tests:
LobsterLang/test/ParserSpec.hs#L1
The export item ‘module ParserSpec’ is missing an export list
|
|
run_tests:
LobsterLang/test/VmSpec.hs#L1
The export item ‘module VmSpec’ is missing an export list
|