Skip to content
Permalink
Browse files

Fix compiler warnings

  • Loading branch information
erikd committed Dec 3, 2019
1 parent 64ac289 commit f977010a24742f0c431f4925f7f82d1f46ee5d7f
@@ -8,7 +8,6 @@ module Cardano.Slotting.Block
)
where

import Cardano.Binary (ToCBOR (..))
import Cardano.Prelude (NoUnexpectedThunks)
import Codec.Serialise (Serialise (..))
import Data.Word (Word64)
@@ -8,8 +8,6 @@ where

import Cardano.Slotting.EpochInfo.API
import Cardano.Slotting.Slot (EpochNo (..), EpochSize (..), SlotNo (..))
import Data.List (maximumBy)
import Data.Ord (comparing)

fixedSizeEpochInfo :: Monad m => EpochSize -> EpochInfo m
fixedSizeEpochInfo (EpochSize size) = EpochInfo
@@ -42,10 +42,10 @@ data Bounds
class InBounds (bounds :: Bounds) where
inBounds :: proxy bounds -> SlotNo -> (SlotNo, SlotNo) -> Bool

instance InBounds II where
instance InBounds 'II where
inBounds _ x (lo, hi) = lo <= x && x <= hi

instance InBounds IX where
instance InBounds 'IX where
inBounds _ x (lo, hi) = lo <= x && x < hi

{-------------------------------------------------------------------------------

0 comments on commit f977010

Please sign in to comment.
You can’t perform that action at this time.