module OrgStat.Report.Class
( Report (..)
) where
import qualified Diagrams.Backend.SVG as DB
import qualified Diagrams.Prelude as D
import System.FilePath (replaceExtension, (</>))
import Universum
import OrgStat.Report.Types (SVGImageReport (..))
class Report a where
writeReport :: (MonadIO m) => FilePath -> FilePath -> a -> m ()
instance Report SVGImageReport where
writeReport dir filename (SVGImage diagram) =
liftIO $ DB.renderSVG (replaceExtension (dir </> filename) "svg") size diagram
where
size = D.dims2D (D.width diagram) (D.height diagram)