move instance MonadStore Fix1T to the parent

haskell-nix · Feb 8, 2021 · e935904 · e935904
1 parent 56d3774
commit e935904
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/src/Nix/Effects.hs b/src/Nix/Effects.hs
@@ -74,6 +74,10 @@ class (MonadFile m,
 
  traceEffect :: String -> m ()
 
+instance (MonadFix1T t m, MonadStore m) => MonadStore (Fix1T t m) where
+ addToStore a b c d = lift $ addToStore a b c d
+ addTextToStore' a b c d = lift $ addTextToStore' a b c d
+
 class Monad m => MonadIntrospect m where
  recursiveSize :: a -> m Word
  default recursiveSize :: (MonadTrans t, MonadIntrospect m', m ~ t m') => a -> m Word

diff --git a/src/Nix/Standard.hs b/src/Nix/Standard.hs
@@ -52,12 +52,6 @@ import Nix.Value.Monad
 import Nix.Var
 
 
-instance (MonadFix1T t m, MonadStore m) => MonadStore (Fix1T t m) where
- addToStore a b c d = lift $ addToStore a b c d
- addTextToStore' a b c d = lift $ addTextToStore' a b c d
-
----------------------------------------------------------------------------------
-
 newtype StdCited m a = StdCited
  { _stdCited :: Cited (StdThunk m) (StdCited m) m a }
  deriving