Remove unused 'block'

IntersectMBO · Dec 13, 2019 · b4fb256 · b4fb256
1 parent 60da4f5
commit b4fb256
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/ouroboros-network/src/Ouroboros/Network/Point.hs b/ouroboros-network/src/Ouroboros/Network/Point.hs
@@ -9,7 +9,6 @@ module Ouroboros.Network.Point
   , Block (..)
   , origin
   , at
-  , block
   , fromWithOrigin
   , withOrigin
   , withOriginToMaybe
@@ -26,6 +25,3 @@ data Block slot hash = Block
   , blockPointHash :: !hash
   }
   deriving (Eq, Ord, Show, Generic, NoUnexpectedThunks)
-
-block :: slot -> hash -> WithOrigin (Block slot hash)
-block slot hash = at (Block slot hash)