Skip to content

Commit 634f56d

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 635c978 commit 634f56d

File tree

3 files changed

+1
-4
lines changed

3 files changed

+1
-4
lines changed

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)