git.iko.soy/elk
on master help sign in
Switch suggestions to N.Name type
64494f0Evan Czaplicki
src/Reporting/Report.hs+5−5
compare with master
unifiedsplit
@@ -8,10 +8,10 @@ module Reporting.Report
8 )
8 )
9 where
9 where
10
10
11−import qualified Data.Text as Text
12−import Text.PrettyPrint.ANSI.Leijen (Doc, (<>), hardline, dullcyan)
13
11
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
15import qualified Reporting.Region as R
15import qualified Reporting.Region as R
16import qualified Reporting.Render.Code as Code
16import qualified Reporting.Render.Code as Code
17
17
@@ -24,7 +24,7 @@ data Report =
24 Report
24 Report
25 { _title :: String
25 { _title :: String
26 , _region :: R.Region
26 , _region :: R.Region
27− , _sgstns :: [Text.Text]
27+ , _sgstns :: [N.Name]
28 , _message :: Doc
28 , _message :: Doc
29 }
29 }
30
30
@@ -42,7 +42,7 @@ messageBar title filePath =
42 usedSpace =
42 usedSpace =
43 4 + length title + 1 + length filePath
43 4 + length title + 1 + length filePath
44 in
44 in
45− dullcyan $ H.text $
45+ dullcyan $ text $
46 "-- " ++ title
46 "-- " ++ title
47 ++ " " ++ replicate (max 1 (80 - usedSpace)) '-'
47 ++ " " ++ replicate (max 1 (80 - usedSpace)) '-'
48 ++ " " ++ filePath
48 ++ " " ++ filePath