File tree 4 files changed +2
-4
lines changed
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
481
481
Scalar Word64Type -> False
482
482
Scalar Float64Type -> True
483
483
Scalar Float32Type -> True
484
+ Scalar _ -> error " Unknown scalar type"
484
485
Vector _ ty' -> signed (Scalar ty')
485
486
PtrType _ -> False
486
487
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
20
20
import Control.Monad.Writer.Strict hiding (Alt )
21
21
import Control.Monad.Reader
22
22
import Data.Coerce
23
- import Data.Foldable (toList , asum )
23
+ import Data.Foldable (toList )
24
24
import Data.Functor ((<&>) )
25
25
import Data.List (sortOn )
26
26
import 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
28
28
import qualified Data.ByteString.Char8 as B
29
29
import System.IO.Unsafe
30
30
31
- import Control.Monad
32
-
33
31
import Logging
34
32
import PPrint ()
35
33
import 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)
99
99
SymbolStr -> " symbol"
100
100
TypeNameStr -> " type-name"
101
101
IsoSugarStr -> " iso-sugar"
102
- NormalStr -> error " Should have been matched already"
103
102
104
103
data StrClass = NormalStr
105
104
| CommentStr | KeywordStr | CommandStr | SymbolStr | TypeNameStr
You can’t perform that action at this time.
0 commit comments