diff options
Diffstat (limited to 'src/Verismith/Verilog/Token.hs')
-rw-r--r-- | src/Verismith/Verilog/Token.hs | 36 |
1 files changed, 17 insertions, 19 deletions
diff --git a/src/Verismith/Verilog/Token.hs b/src/Verismith/Verilog/Token.hs index b303e18..3445bb4 100644 --- a/src/Verismith/Verilog/Token.hs +++ b/src/Verismith/Verilog/Token.hs @@ -1,29 +1,27 @@ -{-| -Module : Verismith.Verilog.Token -Description : Tokens for Verilog parsing. -Copyright : (c) 2019, Yann Herklotz Grave -License : GPL-3 -Maintainer : yann [at] yannherklotz [dot] com -Stability : experimental -Portability : POSIX - -Tokens for Verilog parsing. --} - +-- | +-- Module : Verismith.Verilog.Token +-- Description : Tokens for Verilog parsing. +-- Copyright : (c) 2019, Yann Herklotz Grave +-- License : GPL-3 +-- Maintainer : yann [at] yannherklotz [dot] com +-- Stability : experimental +-- Portability : POSIX +-- +-- Tokens for Verilog parsing. module Verismith.Verilog.Token - ( Token(..) - , TokenName(..) - , Position(..) - , tokenString - ) + ( Token (..), + TokenName (..), + Position (..), + tokenString, + ) where -import Text.Printf +import Text.Printf tokenString :: Token -> String tokenString (Token _ s _) = s -data Position = Position String Int Int deriving Eq +data Position = Position String Int Int deriving (Eq) instance Show Position where show (Position f l c) = printf "%s:%d:%d" f l c |