module D where
import qualified Data.Text as Text
import qualified Util.PPrint as PPrint
import qualified Util.Pretty as Pretty
import qualified Ui.Id as Id
import Types
ppr :: Pretty.Pretty a => a -> IO ()
ppr :: forall a. Pretty a => a -> IO ()
ppr = forall a. Pretty a => a -> IO ()
Pretty.pprint
pp :: Show a => a -> IO ()
pp :: forall a. Show a => a -> IO ()
pp = forall a. Show a => a -> IO ()
PPrint.pprint
mkid :: Text.Text -> Id.Id
mkid :: Text -> Id
mkid Text
name = Namespace -> Text -> Id
Id.read_short Namespace
_default_ns Text
name
bid :: Text.Text -> BlockId
bid :: Text -> BlockId
bid = Id -> BlockId
Id.BlockId forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Id
mkid
vid :: Text.Text -> ViewId
vid :: Text -> ViewId
vid = Id -> ViewId
Id.ViewId forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Id
mkid
tid :: Text.Text -> TrackId
tid :: Text -> TrackId
tid = Id -> TrackId
Id.TrackId forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Id
mkid
rid :: Text.Text -> RulerId
rid :: Text -> RulerId
rid = Id -> RulerId
Id.RulerId forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Id
mkid
_default_ns :: Id.Namespace
_default_ns :: Namespace
_default_ns = Text -> Namespace
Id.namespace Text
""