Commits

Bryan O'Sullivan  committed 3de1cde

Remove unused code

  • Participants
  • Parent commits 3f37f71

Comments (0)

Files changed (2)

File Data/Text/Fusion/Internal.hs

 
 infixl 2 :*:
 data PairS a b = !a :*: !b
-                 deriving (Eq, Ord, Show)
+                 -- deriving (Eq, Ord, Show)
 
 -- | Allow a function over a stream to switch between two states.
 data Switch = S1 | S2
               | Skip !s
               | Yield !a !s
 
+{-
 instance (Show a) => Show (Step s a)
     where show Done        = "Done"
           show (Skip _)    = "Skip"
           show (Yield x _) = "Yield " ++ show x
+-}
 
 instance (Eq a) => Eq (Stream a) where
     (==) = eq

File Data/Text/Fusion/Size.hs

     , unknownSize
     , smaller
     , larger
-    , toMax
     , upperBound
-    , lowerBound
     , isEmpty
     ) where
 
 mulSize (Exact m) (Max   n) = Max   (m*n)
 mulSize (Max   m) (Exact n) = Max   (m*n)
 mulSize (Max   m) (Max   n) = Max   (m*n)
-mulSize _          _       = Unknown
+mulSize _          _        = Unknown
 {-# INLINE mulSize #-}
 
 -- | Minimum of two size hints.
 larger _             _                     = Unknown
 {-# INLINE larger #-}
 
--- | Convert a size hint to an upper bound.
-toMax :: Size -> Size
-toMax   (Exact n) = Max n
-toMax a@(Max   _) = a
-toMax   Unknown   = Unknown
-{-# INLINE toMax #-}
-
--- | Compute the minimum size from a size hint.
-lowerBound :: Size -> Int
-lowerBound (Exact n) = n
-lowerBound _         = 0
-{-# INLINE lowerBound #-}
-
 -- | Compute the maximum size from a size hint, if possible.
 upperBound :: Int -> Size -> Int
 upperBound _ (Exact n) = n