GHC.hs

module Codec.Sarsi.GHC where

import Codec.Sarsi
import Data.Text (Text, strip)

import qualified Codec.GHC.Log as Log
import qualified Data.Vector as Vector

fromGHCLog :: Log.Message -> Message
fromGHCLog (Log.Message fp (Log.Pos col ln) lvl texts) =
  Message (Location (strip fp) col ln) (fromGHCLevel lvl) (Vector.fromList $ strip <$> texts)

fromGHCLevel :: Log.Level -> Level
fromGHCLevel Log.Warning = Warning
fromGHCLevel Log.Error = Error