Literal.hs

module Music.LilyPond.Light.Literal (l,r,r',module L) where

import Music.Theory.Duration {- hmt -}
import Music.Theory.Time_Signature

import Music.LilyPond.Light.Constant
import Music.LilyPond.Light.Constant.Dynamic as L
import Music.LilyPond.Light.Constant.Note as L
import Music.LilyPond.Light.Model
import Music.LilyPond.Light.Notation

l :: Music
l = bar_line_check

r :: Duration -> Music
r = rest

r' :: Time_Signature -> Music
r' = mm_rest