tidy: del unused Eq, add custom Show

Logic/Statement/Laws.hs

@@ -3,6 +3,7 @@ module Logic.Statement.Laws where
 import Logic.Parse (eof, mkInput)
 import Logic.Statement (Statement(..))
 import Logic.Statement.Parse (stmt)
+import Logic.Statement.Serialize (serialize, SerializeFormat(Plain))
 import Logic.Graph (bfs)
 
 import Data.Either (fromRight, rights)
@@ -12,7 +13,17 @@ data Law = Law
   { lawName :: String
   , lawLhs :: Statement
   , lawRhs :: Statement
-  } deriving (Eq, Show)
+  }
+
+instance Show Law where
+  show law =
+    "Law{"
+    <> lawName law
+    <> ": "
+    <> serialize Plain (lawLhs law)
+    <> " <=> "
+    <> serialize Plain (lawRhs law)
+    <> "}"
 
 mkLaw :: String -> String -> String -> Law
 mkLaw name lhs rhs = Law name (fromString lhs) (fromString rhs)
@@ -208,7 +219,16 @@ data LawsGraphEdge = LawsGraphEdge
   { lgeLaw :: Law
   , lgeReverse :: Bool
   , lgeIndex :: Integer
-  } deriving (Eq, Show)
+  }
+
+instance Show LawsGraphEdge where
+  show edge =
+    "LawsGraphEdge{"
+    <> (if lgeReverse edge then "< " else "> ")
+    <> lawName (lgeLaw edge)
+    <> " "
+    <> show (lgeIndex edge)
+    <> "}"
 
 bfsLaws :: Statement -> Statement -> Maybe [LawsGraphEdge]
 bfsLaws goal start = bfs goal start getLawsGraphEdges
@@ -284,6 +304,7 @@ Just ["> dbl_neg 0","> dbl_neg 0","> dbl_neg 0","> dbl_neg 0"]
 ghci> time $ putStrLn $ show $ niceEdges <$> bfsLaws (fromString "!!!!!!!!!!p") (fromString "p")
 Just ["> dbl_neg 0","> dbl_neg 0","> dbl_neg 0","> dbl_neg 0","> dbl_neg 0"]
 3.244101767s
+ghci> time $ putStrLn $ show $ niceEdges <$> bfsLaws (fromString "!!!!!!!!!!!!p") (fromString "p")
 Just ["> dbl_neg 0","> dbl_neg 0","> dbl_neg 0","> dbl_neg 0","> dbl_neg 0","> dbl_neg 0"]
 3066.211460539s
 -}

Logic/Statement/Serialize.hs

@@ -10,28 +10,28 @@ data TokenString = TokenString
   { tsCanEval :: CanEval
   , tsLevel :: Int
   , tsString :: String
-  } deriving (Show, Eq)
+  } deriving Show
 
 data CanEval
   = Filler
   | CanEval
-  deriving (Show, Eq)
+  deriving Show
 
 data TokenValue = TokenValue
   { tvLevel :: Int
   , tvValue :: Value
-  } deriving (Show, Eq)
+  } deriving Show
 
 data Value
   = NoValue
   | Value Bool
-  deriving (Show, Eq)
+  deriving Show
 
 data SerializeFormat
   = Plain
   | Latex
 --  | PrefixPlain
-  deriving (Show, Eq)
+  deriving Show
 
 serialize :: SerializeFormat -> Statement -> String
 serialize fmt s = concat $ map tsString $ serializeStrings fmt s