@@ -8,10 +8,10 @@ module Reporting.Report
88 )
99 where
1010
11−import qualified Data.Text as Text
12−import Text.PrettyPrint.ANSI.Leijen (Doc, (<>), hardline, dullcyan)
1311
14−import qualified Reporting.Helpers as H
12+import Text.PrettyPrint.ANSI.Leijen (Doc, (<>), hardline, dullcyan, text)
13+
14+import qualified Elm.Name as N
1515import qualified Reporting.Region as R
1616import qualified Reporting.Render.Code as Code
1717
@@ -24,7 +24,7 @@ data Report =
2424 Report
2525 { _title :: String
2626 , _region :: R.Region
27− , _sgstns :: [Text.Text]
27+ , _sgstns :: [N.Name]
2828 , _message :: Doc
2929 }
3030
@@ -42,7 +42,7 @@ messageBar title filePath =
4242 usedSpace =
4343 4 + length title + 1 + length filePath
4444 in
45− dullcyan $ H.text $
45+ dullcyan $ text $
4646 "-- " ++ title
4747 ++ " " ++ replicate (max 1 (80 - usedSpace)) '-'
4848 ++ " " ++ filePath