File tree Expand file tree Collapse file tree 4 files changed +2
-4
lines changed Expand file tree Collapse file tree 4 files changed +2
-4
lines changed Original file line number Diff line number Diff line change @@ -481,6 +481,7 @@ compileInstr instr = case instr of
481481 Scalar Word64Type -> False
482482 Scalar Float64Type -> True
483483 Scalar Float32Type -> True
484+ Scalar _ -> error " Unknown scalar type"
484485 Vector _ ty' -> signed (Scalar ty')
485486 PtrType _ -> False
486487 int_to_float = if signed (getIType ix) then L. SIToFP else L. UIToFP
Original file line number Diff line number Diff line change @@ -20,7 +20,7 @@ import Control.Monad.State.Strict
2020import Control.Monad.Writer.Strict hiding (Alt )
2121import Control.Monad.Reader
2222import Data.Coerce
23- import Data.Foldable (toList , asum )
23+ import Data.Foldable (toList )
2424import Data.Functor ((<&>) )
2525import Data.List (sortOn )
2626import Data.Maybe (fromJust , fromMaybe , catMaybes )
Original file line number Diff line number Diff line change @@ -28,8 +28,6 @@ import qualified Data.ByteString as BS
2828import qualified Data.ByteString.Char8 as B
2929import System.IO.Unsafe
3030
31- import Control.Monad
32-
3331import Logging
3432import PPrint ()
3533import Paths_dex (getDataFileName )
Original file line number Diff line number Diff line change @@ -99,7 +99,6 @@ syntaxSpan s c = H.span (toHtml s) ! class_ (stringValue className)
9999 SymbolStr -> " symbol"
100100 TypeNameStr -> " type-name"
101101 IsoSugarStr -> " iso-sugar"
102- NormalStr -> error " Should have been matched already"
103102
104103data StrClass = NormalStr
105104 | CommentStr | KeywordStr | CommandStr | SymbolStr | TypeNameStr
You can’t perform that action at this time.
0 commit comments