Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (12 sloc) 0.475 kB
module Cohatoe.Data( CohatoeData, marshal, module Cohatoe.Data.MarkerDesc ) where
import Cohatoe.Data.MarkerDesc
class CohatoeData a where
marshal :: a -> [String]
unmarshal :: [String] -> Maybe a
instance CohatoeData MarkerDesc where
marshal md = [
fileName md, show $ lineStart md, show $ lineEnd md, message md,
show $ charStart md, show $ charEnd md, show $ severity md
unmarshal [] = Nothing
unmarshal (str:_) = Just $ read str
Jump to Line
Something went wrong with that request. Please try again.