{-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Gpu.Vulkan.Fence.Type where import qualified Gpu.Vulkan.Fence.Middle as M newtype F sf = F M.F deriving Int -> F sf -> ShowS [F sf] -> ShowS F sf -> String (Int -> F sf -> ShowS) -> (F sf -> String) -> ([F sf] -> ShowS) -> Show (F sf) forall sf. Int -> F sf -> ShowS forall sf. [F sf] -> ShowS forall sf. F sf -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: forall sf. Int -> F sf -> ShowS showsPrec :: Int -> F sf -> ShowS $cshow :: forall sf. F sf -> String show :: F sf -> String $cshowList :: forall sf. [F sf] -> ShowS showList :: [F sf] -> ShowS Show