diff --git a/Biobase/Types/Index/Type.hs b/Biobase/Types/Index/Type.hs
--- a/Biobase/Types/Index/Type.hs
+++ b/Biobase/Types/Index/Type.hs
@@ -8,8 +8,7 @@
 import           Data.Hashable (Hashable)
 import           Data.Proxy
 import           Data.Serialize (Serialize)
-import           Data.Vector.Fusion.Stream.Monadic (flatten, Step(..))
-import           Data.Vector.Fusion.Stream.Size
+import           Data.Vector.Fusion.Stream.Monadic (Step(..))
 import           Data.Vector.Unboxed.Deriving
 import           GHC.Generics
 import           GHC.TypeLits
@@ -18,6 +17,7 @@
 import           Text.Printf
 
 import           Data.PrimitiveArray.Index.Class hiding (Index)
+import           Data.PrimitiveArray.Vector.Compat
 import qualified Data.PrimitiveArray.Index.Class as PA
 
 
@@ -79,7 +79,7 @@
   {-# INLINE inBounds #-}
 
 instance IndexStream z => IndexStream (z:.Index t) where
-  streamUp (ls:.Index lf) (hs:.Index ht) = flatten mk step Unknown $ streamUp ls hs
+  streamUp (ls:.Index lf) (hs:.Index ht) = flatten mk step $ streamUp ls hs
     where mk z = return (z,lf)
           step (z,k)
             | k > ht    = return $ Done
@@ -87,7 +87,7 @@
           {-# Inline [0] mk   #-}
           {-# Inline [0] step #-}
   {-# Inline streamUp #-}
-  streamDown (ls:.Index lf) (hs:.Index ht) = flatten mk step Unknown $ streamDown ls hs
+  streamDown (ls:.Index lf) (hs:.Index ht) = flatten mk step $ streamDown ls hs
     where mk z = return (z,ht)
           step (z,k)
             | k < lf    = return $ Done
diff --git a/Biobase/Types/Strand.hs b/Biobase/Types/Strand.hs
--- a/Biobase/Types/Strand.hs
+++ b/Biobase/Types/Strand.hs
@@ -13,14 +13,14 @@
 import Data.Binary
 import Data.Hashable (Hashable)
 import Data.Serialize (Serialize)
-import Data.Vector.Fusion.Stream.Monadic (flatten, Step(..))
-import Data.Vector.Fusion.Stream.Size
+import Data.Vector.Fusion.Stream.Monadic (Step(..))
 import Data.Vector.Unboxed.Deriving
 import GHC.Generics
 import Test.QuickCheck
 import Text.Printf
 
 import Data.PrimitiveArray.Index.Class
+import Data.PrimitiveArray.Vector.Compat
 
 
 
@@ -34,10 +34,10 @@
 instance Read Strand where
   readsPrec _ xs = do
     ([pm],s) <- lex xs
-    guard $ pm `elem` "+-PMpm"
+    guard $ pm `elem` ("+-PMpm" :: String)
     return (go pm,s)
-    where go x | x `elem` "+Pp" = P
-               | x `elem` "-Mm" = M
+    where go x | x `elem` ("+Pp" :: String) = P
+               | x `elem` ("-Mm" :: String) = M
 
 instance Bounded Strand where
   minBound = P
@@ -82,7 +82,7 @@
   {-# INLINE inBounds #-}
 
 instance IndexStream z => IndexStream (z:.Strand) where
-  streamUp (ls:.Strand lf) (hs:.Strand ht) = flatten mk step Unknown $ streamUp ls hs
+  streamUp (ls:.Strand lf) (hs:.Strand ht) = flatten mk step $ streamUp ls hs
     where mk z = return (z,lf)
           step (z,k)
             | k > ht    = return $ Done
@@ -90,7 +90,7 @@
           {-# Inline [0] mk   #-}
           {-# Inline [0] step #-}
   {-# Inline streamUp #-}
-  streamDown (ls:.Strand lf) (hs:.Strand ht) = flatten mk step Unknown $ streamDown ls hs
+  streamDown (ls:.Strand lf) (hs:.Strand ht) = flatten mk step $ streamDown ls hs
     where mk z = return (z,ht)
           step (z,k)
             | k < lf    = return $ Done
diff --git a/BiobaseTypes.cabal b/BiobaseTypes.cabal
--- a/BiobaseTypes.cabal
+++ b/BiobaseTypes.cabal
@@ -1,5 +1,5 @@
 name:           BiobaseTypes
-version:        0.1.1.0
+version:        0.1.1.1
 author:         Christian Hoener zu Siederdissen, 2015
 copyright:      Christian Hoener zu Siederdissen, 2015
 homepage:       https://github.com/choener/BiobaseTypes
@@ -32,21 +32,21 @@
 
 library
   build-depends: base                     >= 4.7      && < 4.9
-               , aeson                    >= 0.8      && < 0.10
+               , aeson                    >= 0.8      && < 0.11
                , binary                   >= 0.7      && < 0.8
-               , cereal                   >= 0.4      && < 0.5
+               , cereal                   >= 0.4      && < 0.6
                , cereal-text              >= 0.1      && < 0.2
                , data-default             >= 0.5      && < 0.6
                , deepseq                  >= 1.3      && < 1.5
                , hashable                 >= 1.2      && < 1.3
                , log-domain               >= 0.10     && < 0.11
                , primitive                >= 0.5      && < 0.7
-               , PrimitiveArray           >= 0.6.0    && < 0.6.2
+               , PrimitiveArray           >= 0.6.0    && < 0.7.1
                , QuickCheck               >= 2.7      && < 2.9
                , stringable               >= 0.1.3    && < 0.2
                , text                     >= 1.0      && < 1.3
                , text-binary              >= 0.2      && < 0.3
-               , vector                   >= 0.10     && < 0.11
+               , vector                   >= 0.10     && < 0.12
                , vector-binary-instances  >= 0.2      && < 0.3
                , vector-th-unbox          >= 0.2      && < 0.3
   exposed-modules: