Fix warnings in a couple modules
commit700055cbb84f8a494e35fe89257a797420edca08
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateTue 21 Mar 2017, 13:38 (10 years ago)
parent6aa54d5
src/Docs/Check.hs+2−2
@@ -61,10 +61,10 @@ checkCategory
6161 -> (Text -> a -> Result w b)
6262 -> Map.Map Text a
6363 -> Result w (Map.Map Text b)
64−checkCategory docSet check dict =
64+checkCategory docSet checker dict =
6565 dict
6666 |> Map.filterWithKey (\key _ -> Set.member key docSet)
67− |> Map.mapWithKey check
67+ |> Map.mapWithKey checker
6868 |> traverse id
6969
7070
src/Elm/Utils.hs−3
@@ -5,10 +5,7 @@ module Elm.Utils
55 , isDeclaration
66 ) where
77
8−import Control.Monad.Except (MonadError, MonadIO, liftIO, throwError)
98import Data.Text (Text)
10−import System.Exit (ExitCode(ExitSuccess, ExitFailure))
11−import System.Process (readProcessWithExitCode)
129
1310import qualified AST.Expression.Source as Source
1411import qualified AST.Pattern as Pattern
src/Reporting/Region.hs+4−4
@@ -7,16 +7,16 @@ import qualified Data.Aeson as Json
77
88data Region =
99 Region
10− { start :: !Position
11− , end :: !Position
10+ { _start :: !Position
11+ , _end :: !Position
1212 }
1313 deriving (Eq, Show)
1414
1515
1616data Position =
1717 Position
18− { line :: !Int
19− , column :: !Int
18+ { _line :: !Int
19+ , _column :: !Int
2020 }
2121 deriving (Eq, Show)
2222