From 84a79094fd1bb465ccddddd49a94d385893e8e3d Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sat, 18 Dec 2021 12:19:05 +0700
Subject: [PATCH] Move Error to separate module

---
 nand2tetris.cabal        |  1 +
 src/Nand2Tetris/Error.hs | 14 ++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 src/Nand2Tetris/Error.hs

diff --git a/nand2tetris.cabal b/nand2tetris.cabal
index 10261eb..9863d7d 100644
--- a/nand2tetris.cabal
+++ b/nand2tetris.cabal
@@ -29,6 +29,7 @@ library
   hs-source-dirs:      src
   default-language:    Haskell2010
   exposed-modules:     Nand2Tetris.Hack
+                     , Nand2Tetris.Error
   build-depends:       base >= 4.7 && < 5
                      , text
                      , megaparsec
diff --git a/src/Nand2Tetris/Error.hs b/src/Nand2Tetris/Error.hs
new file mode 100644
index 0000000..4b33756
--- /dev/null
+++ b/src/Nand2Tetris/Error.hs
@@ -0,0 +1,14 @@
+
+module Nand2Tetris.Error
+  (
+    Error(..)
+  ) where
+
+import qualified Data.Text as T
+import Text.Megaparsec.Error (ShowErrorComponent (showErrorComponent))
+
+data Error = ParsingError T.Text Int
+  deriving (Show, Eq, Ord)
+
+instance ShowErrorComponent Error where
+  showErrorComponent = show