git.iko.soy/elk
on master help sign in
Merge pull request #1151 from elm-lang/dev

Resolve a bunch of warnings

commit3e77ba3b5c0c98fd11369f9fff1a003d5b4d81a3 authorEvan Czaplicki <info@elm-lang.org> dateSun 8 Nov 2015, 12:25 (11 years ago) parentbf4590e172844e
3 files changed+2−4
compare with master
unifiedsplit
src/Reporting/Error/Type.hs+1−1 src/Type/Solve.hs−2 src/Type/Unify.hs+1−1
src/Reporting/Error/Type.hs+1−1
@@ -4,7 +4,7 @@ module Reporting.Error.Type where
44import qualified Data.Map as Map
55import qualified Data.Maybe as Maybe
66import Text.PrettyPrint.ANSI.Leijen
7− ( Doc, (<>), (<+>), colon, dullyellow, equals
7+ ( Doc, (<>), (<+>), colon, dullyellow
88 , fillSep, hang, indent, text, underline, vcat
99 )
1010
src/Type/Solve.hs−2
@@ -3,13 +3,11 @@ module Type.Solve (solve) where
33import Control.Monad
44import Control.Monad.State (execStateT, liftIO)
55import Control.Monad.Except (ExceptT, throwError)
6−import qualified Data.Foldable as F
76import qualified Data.List as List
87import qualified Data.Map as Map
98import qualified Data.Traversable as T
109import qualified Data.UnionFind.IO as UF
1110
12−import qualified AST.Type as Type
1311import qualified Reporting.Annotation as A
1412import qualified Reporting.Error.Type as Error
1513import qualified Type.State as TS
src/Type/Unify.hs+1−1
@@ -24,7 +24,7 @@ unify hint region expected actual =
2424 Right state ->
2525 return state
2626
27− Left (Mismatch subExpected subActual maybeReason) ->
27+ Left (Mismatch _subExpected _subActual maybeReason) ->
2828 let
2929 mkError =
3030 do expectedSrcType <- Type.toSrcType expected