1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
-----------------------------------------------------------------------------
--
-- Module : Language.PureScript.AST.SourcePos
-- Copyright : (c) 2013-14 Phil Freeman, (c) 2014 Gary Burgess, and other contributors
-- License : MIT
--
-- Maintainer : Phil Freeman <paf31@cantab.net>
-- Stability : experimental
-- Portability :
--
-- | Source position information
--
-----------------------------------------------------------------------------
{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}
module Language.PureScript.AST.SourcePos where
import qualified Data.Data as D
-- |
-- Source position information
--
data SourcePos = SourcePos
{ -- |
-- Line number
--
sourcePosLine :: Int
-- |
-- Column number
--
, sourcePosColumn :: Int
} deriving (Eq, Show, D.Data, D.Typeable)
displaySourcePos :: SourcePos -> String
displaySourcePos sp =
"line " ++ show (sourcePosLine sp) ++
", column " ++ show (sourcePosColumn sp)
data SourceSpan = SourceSpan
{ -- |
-- Source name
--
spanName :: String
-- |
-- Start of the span
--
, spanStart :: SourcePos
-- End of the span
--
, spanEnd :: SourcePos
} deriving (Eq, Show, D.Data, D.Typeable)
displaySourceSpan :: SourceSpan -> String
displaySourceSpan sp =
spanName sp ++ " " ++
displaySourcePos (spanStart sp) ++ " - " ++
displaySourcePos (spanEnd sp)
|
