Fix warnings

src/Data/YAML/Event.hs

@@ -409,7 +409,6 @@ goNode0 DInfo {..} = goNode
           | ii, hasLeadingSpace acc = [Left (tok2pos t, "leading empty lines contain more spaces than the first non-empty line in scalar: " ++ show acc)]
           | otherwise = Right (EvPos (Scalar manchor tag sty (T.pack acc)) pos0) : cont rest
 
-        go' _ _ _ xs | False = error (show xs)
         go' _ _ _ xs = err xs
 
         hasLeadingSpace (' ':_)   = True

src/Data/YAML/Loader.hs

@@ -16,8 +16,9 @@ module Data.YAML.Loader
     , NodeId
     ) where
 
-import           Control.Monad.Fix    (MonadFix)
-import           Control.Monad.State
+import           Control.Monad.State  (MonadState(..), gets, modify,
+                                       StateT, evalStateT, state)
+import           Control.Monad.Trans  (MonadTrans(..))
 import qualified Data.ByteString.Lazy as BS.L
 import qualified Data.Map             as Map
 import qualified Data.Set             as Set

src/Util.hs

@@ -33,6 +33,7 @@ import           Data.Word                    as X
 import           GHC.Generics                 as X (Generic)
 import           Numeric.Natural              as X (Natural)
 
+import           Control.Monad.Fix            as X (MonadFix)
 import           Control.Monad.Except         as X (MonadError (..))
 import           Control.Monad.Identity       as X
 import           Control.Monad.Trans.Except   as X (ExceptT (..), runExceptT)