git.iko.soy/elk
on master help sign in
Fix warnings in a couple modules
700055cEvan Czaplicki
src/Docs/Check.hs+2−2
compare with master
unifiedsplit
@@ -61,10 +61,10 @@ checkCategory
61 -> (Text -> a -> Result w b)
61 -> (Text -> a -> Result w b)
62 -> Map.Map Text a
62 -> Map.Map Text a
63 -> Result w (Map.Map Text b)
63 -> Result w (Map.Map Text b)
64−checkCategory docSet check dict =
64+checkCategory docSet checker dict =
65 dict
65 dict
66 |> Map.filterWithKey (\key _ -> Set.member key docSet)
66 |> Map.filterWithKey (\key _ -> Set.member key docSet)
67− |> Map.mapWithKey check
67+ |> Map.mapWithKey checker
68 |> traverse id
68 |> traverse id
69
69
70
70
src/Elm/Utils.hs−3
@@ -5,10 +5,7 @@ module Elm.Utils
5 , isDeclaration
5 , isDeclaration
6 ) where
6 ) where
7
7
8−import Control.Monad.Except (MonadError, MonadIO, liftIO, throwError)
9import Data.Text (Text)
8import Data.Text (Text)
10−import System.Exit (ExitCode(ExitSuccess, ExitFailure))
11−import System.Process (readProcessWithExitCode)
12
9
13import qualified AST.Expression.Source as Source
10import qualified AST.Expression.Source as Source
14import qualified AST.Pattern as Pattern
11import qualified AST.Pattern as Pattern
src/Reporting/Region.hs+4−4
@@ -7,16 +7,16 @@ import qualified Data.Aeson as Json
7
7
8data Region =
8data Region =
9 Region
9 Region
10− { start :: !Position
10+ { _start :: !Position
11− , end :: !Position
11+ , _end :: !Position
12 }
12 }
13 deriving (Eq, Show)
13 deriving (Eq, Show)
14
14
15
15
16data Position =
16data Position =
17 Position
17 Position
18− { line :: !Int
18+ { _line :: !Int
19− , column :: !Int
19+ , _column :: !Int
20 }
20 }
21 deriving (Eq, Show)
21 deriving (Eq, Show)
22
22