diff --git a/TBit.cabal b/TBit.cabal
--- a/TBit.cabal
+++ b/TBit.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.4.2.0
+version:             0.4.2.1
 
 -- A short (one-line) description of the package.
 synopsis:            Utilities for condensed matter physics tight binding calculations.
@@ -77,8 +77,8 @@
   -- other-modules:       
   
   -- Other library packages from which modules are imported.
-  build-depends:       base ==4.6.*, containers ==0.5.*,
-                       hmatrix ==0.16.*, stream-fusion ==0.1.*,
-                       mtl ==2.2.*, parallel ==3.2.*, deepseq ==1.3.*,
+  build-depends:       base ==4.8.*, containers ==0.5.*,
+                       hmatrix ==0.16.*,
+                       mtl ==2.2.*, parallel ==3.2.*, deepseq ==1.4.*,
                        integration ==0.2.*, numeric-tools ==0.2.*, fgl ==5.5.*,
-                       list-extras ==0.4.*, free ==4.9.*, haskeline ==0.7.*
+                       list-extras ==0.4.*, free ==4.11.*
diff --git a/TBit/Framework.hs b/TBit/Framework.hs
--- a/TBit/Framework.hs
+++ b/TBit/Framework.hs
@@ -11,7 +11,7 @@
 import TBit.Numerical.Integration
 
 import Data.Foldable hiding (foldl', concatMap)
-import Data.List.Stream hiding (sum)
+import Data.List hiding (sum) -- .Stream hiding (sum)
 import Data.Traversable (traverse)
 import qualified Data.Map as M
 
diff --git a/TBit/Hamiltonian/Builder/Matrification.hs b/TBit/Hamiltonian/Builder/Matrification.hs
--- a/TBit/Hamiltonian/Builder/Matrification.hs
+++ b/TBit/Hamiltonian/Builder/Matrification.hs
@@ -2,7 +2,7 @@
 module TBit.Hamiltonian.Builder.Matrification (mixedSum, toMatrix) where
 
 import Prelude.Listless
-import Data.List.Stream
+import Data.List -- .Stream
 import Numeric.LinearAlgebra.HMatrix
 import Data.Graph.Inductive
 import Data.Maybe
diff --git a/TBit/Hamiltonian/Builder/PrimitiveLattice.hs b/TBit/Hamiltonian/Builder/PrimitiveLattice.hs
--- a/TBit/Hamiltonian/Builder/PrimitiveLattice.hs
+++ b/TBit/Hamiltonian/Builder/PrimitiveLattice.hs
@@ -11,7 +11,7 @@
 import Data.Graph.Inductive.Query.SP (spLength)
 import Data.Graph.Inductive.Query.DFS (components)
 import Control.Monad.State
-import Data.List.Stream (nub, nubBy, sortBy)
+import Data.List (nub, nubBy, sortBy) -- .Stream
 
 nthNeighborsTo :: CellGraph -> Int -> Node -> [(Node,Displacement)]
 nthNeighborsTo g 0 j = [(j,vector [0,0])]
diff --git a/TBit/Hamiltonian/Builder/Terms.hs b/TBit/Hamiltonian/Builder/Terms.hs
--- a/TBit/Hamiltonian/Builder/Terms.hs
+++ b/TBit/Hamiltonian/Builder/Terms.hs
@@ -8,7 +8,7 @@
                                       ) where
 
 import Prelude.Listless
-import Data.List.Stream
+import Data.List -- .Stream
 import TBit.Types
 import TBit.Parameterization
 import Control.Monad.State
diff --git a/TBit/Hamiltonian/Eigenstates.hs b/TBit/Hamiltonian/Eigenstates.hs
--- a/TBit/Hamiltonian/Eigenstates.hs
+++ b/TBit/Hamiltonian/Eigenstates.hs
@@ -5,7 +5,7 @@
                                     , eigensystem ) where
 
 import TBit.Types
-import Data.List.Stream (sortBy, zip, sort, map)
+import Data.List (sortBy, zip, sort, map) -- .Stream
 import Prelude hiding (zip, map)
 import Numeric.LinearAlgebra.HMatrix
 
diff --git a/TBit/Magnetic/OrbitalMagnetization.hs b/TBit/Magnetic/OrbitalMagnetization.hs
--- a/TBit/Magnetic/OrbitalMagnetization.hs
+++ b/TBit/Magnetic/OrbitalMagnetization.hs
@@ -12,7 +12,7 @@
 import TBit.Numerical.Derivative
 import TBit.Parameterization
 
-import Data.List.Stream (delete)
+import Data.List (delete) -- .Stream (delete)
 import Control.Monad.Except
 import Prelude hiding (mapM, sequence)
 import Numeric.LinearAlgebra.HMatrix
diff --git a/TBit/Parameterization.hs b/TBit/Parameterization.hs
--- a/TBit/Parameterization.hs
+++ b/TBit/Parameterization.hs
@@ -14,7 +14,7 @@
 
 import qualified Data.Map as M
 import Data.Complex
-import Data.List.Stream (map, head)
+import Data.List (map, head) -- .Stream (map, head)
 import Data.Maybe
 
 import Numeric.LinearAlgebra.HMatrix (toColumns, fromRows, col, linearSolve, Vector)
diff --git a/TBit/Plots.hs b/TBit/Plots.hs
--- a/TBit/Plots.hs
+++ b/TBit/Plots.hs
@@ -7,7 +7,7 @@
 import TBit.Hamiltonian.Eigenstates (eigenenergies)
 
 import Prelude.Listless
-import Data.List.Stream
+import Data.List -- .Stream
 import Data.Map (adjust, elems)
 import Control.Monad.State
 import Control.Parallel.Strategies
diff --git a/TBit/Topological/Curvature.hs b/TBit/Topological/Curvature.hs
--- a/TBit/Topological/Curvature.hs
+++ b/TBit/Topological/Curvature.hs
@@ -9,7 +9,7 @@
 import Control.Monad
 
 import Data.Map (elems)
-import Data.List.Stream (delete)
+import Data.List (delete) -- .Stream (delete)
 import qualified Data.Traversable as T
 
 import Numeric.LinearAlgebra.HMatrix
diff --git a/TBit/Types.hs b/TBit/Types.hs
--- a/TBit/Types.hs
+++ b/TBit/Types.hs
@@ -116,15 +116,8 @@
 type CellGraph    = Gr SiteData Displacement
 type AdjMatrix    = Gr (Matrix (Complex Double)) (Matrix (Complex Double))
 
-instance Traversable ((,) a) where
-    traverse f (x,z) = (,) x <$> f z
-
 instance Traversable ((,,) a b) where
     traverse f (x,y,z) = (,,) x y <$> f z
-
-instance Foldable ((,) a) where
-    foldMap f (_, z) = f z
-    foldr f t (_, z) = f z t
 
 instance Foldable ((,,) a b) where
     foldMap f (_, _, z) = f z