aboutsummaryrefslogtreecommitdiffstats
path: root/src/Verismith/Verilog/Token.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Verismith/Verilog/Token.hs')
-rw-r--r--src/Verismith/Verilog/Token.hs36
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