on f4401ac help sign in
22 lines 323 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module Reporting.Report
3 ( Report(..)
4 )
5 where
8import qualified Reporting.Annotation as A
9import qualified Reporting.Doc as D
13-- BUILD REPORTS
16data Report =
17 Report
18 { _title :: String
19 , _region :: A.Region
20 , _sgstns :: [String]
21 , _message :: D.Doc
22 }