Skip to content

Commit 555d684

Browse files
committed
Fix GHC warnings.
Fix all warnings except `-Wincomplete-uni-patterns` and `-Wincomplete-record-updates`, which were newly added to `-Wall` (starting in GHC 9.2.1). https://github.com/ghc-proposals/ghc-proposals/blob/master/proposals/0071-Wall-uni-patterns.rst
1 parent fcd47ac commit 555d684

File tree

4 files changed

+2
-4
lines changed

4 files changed

+2
-4
lines changed

src/lib/ImpToLLVM.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff 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

src/lib/Inference.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ import Control.Monad.State.Strict
2020
import Control.Monad.Writer.Strict hiding (Alt)
2121
import Control.Monad.Reader
2222
import Data.Coerce
23-
import Data.Foldable (toList, asum)
23+
import Data.Foldable (toList)
2424
import Data.Functor ((<&>))
2525
import Data.List (sortOn)
2626
import Data.Maybe (fromJust, fromMaybe, catMaybes)

src/lib/LLVM/Compile.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -28,8 +28,6 @@ import qualified Data.ByteString as BS
2828
import qualified Data.ByteString.Char8 as B
2929
import System.IO.Unsafe
3030

31-
import Control.Monad
32-
3331
import Logging
3432
import PPrint ()
3533
import Paths_dex (getDataFileName)

src/lib/RenderHtml.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff 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

104103
data StrClass = NormalStr
105104
| CommentStr | KeywordStr | CommandStr | SymbolStr | TypeNameStr

0 commit comments

Comments
 (0)