Fix MonadFail imports

fmthoma · Jan 25, 2021 · da9b42d · da9b42d
1 parent 294a30b
commit da9b42d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/.travis.yml b/.travis.yml
@@ -26,10 +26,6 @@ matrix:
         - env: ARGS="--resolver lts-14" SKIP_DOCTESTS=false
         - env: ARGS="--resolver lts-13" SKIP_DOCTESTS=false
         - env: ARGS="--resolver lts-12" SKIP_DOCTESTS=false
-        - env: ARGS="--resolver lts-11" SKIP_DOCTESTS=false
-        - env: ARGS="--resolver lts-10" SKIP_DOCTESTS=false
-        - env: ARGS="--resolver lts-9" SKIP_DOCTESTS=false
-        - env: ARGS="--resolver lts-8" SKIP_DOCTESTS=false
 
 before_install:
     # Download and unpack the stack executable

diff --git a/src/Vgrep/Environment/Config/Sources/File.hs b/src/Vgrep/Environment/Config/Sources/File.hs
@@ -13,11 +13,11 @@ module Vgrep.Environment.Config.Sources.File
     ) where
 
 import           Control.Monad           ((<=<))
-import           Control.Monad.Fail      (MonadFail)
 import           Control.Monad.IO.Class
 import           Data.Aeson.Types
     ( FromJSON (..)
     , Options (..)
+    , Parser
     , camelTo
     , defaultOptions
     , genericParseJSON
@@ -334,7 +334,7 @@ mapMKeys f = fmap M.fromList . M.foldrWithKey go (pure [])
         xs <- mxs
         pure ((k', x) : xs)
 
-parseChord :: MonadFail m => String -> m Key.Chord
+parseChord :: String -> Parser Key.Chord
 parseChord = \case
     'C' : '-' : t -> fmap (`Key.withModifier` Key.Ctrl)  (parseChord t)
     'S' : '-' : t -> fmap (`Key.withModifier` Key.Shift) (parseChord t)