172844e · elk · git.iko.soy

Resolve a bunch of warnings

commit172844ed680ffb27d2e3cdf9e121f9355d6dab7e authorEvan Czaplicki <info@elm-lang.org> dateSun 8 Nov 2015, 10:39 (11 years ago) parentbf4590e

3 files changed+2−4

unifiedsplit

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