From 5dd9b1edefc3a5f4cd63f4fe4384a2e4e8a85f4f Mon Sep 17 00:00:00 2001 From: dopamane Date: Sun, 21 Jul 2024 21:09:34 -0700 Subject: [PATCH] Debugging demo --- data/{BufEcho.pcf => EchoLine.pcf} | 0 exe/Main.hs | 2 +- lib/Bayeux.hs | 2 +- lib/Bayeux/Cli.hs | 2 +- 4 files changed, 3 insertions(+), 3 deletions(-) rename data/{BufEcho.pcf => EchoLine.pcf} (100%) diff --git a/data/BufEcho.pcf b/data/EchoLine.pcf similarity index 100% rename from data/BufEcho.pcf rename to data/EchoLine.pcf diff --git a/exe/Main.hs b/exe/Main.hs index 773953f..a5b3f30 100644 --- a/exe/Main.hs +++ b/exe/Main.hs @@ -36,7 +36,7 @@ parseDemo = asum , flag' Hello $ long "Hello" <> help "Hello demo" , flag' Echo $ long "Echo" <> help "Echo demo" , flag' LedCtrl $ long "LedCtrl" <> help "Control Led IP through UART" - , flag' BufEcho $ long "BufEcho" <> help "BufEcho demo" + , flag' EchoLine $ long "EchoLine" <> help "EchoLine demo" ] parseProve :: Parser Prove diff --git a/lib/Bayeux.hs b/lib/Bayeux.hs index 3956d70..8c59757 100644 --- a/lib/Bayeux.hs +++ b/lib/Bayeux.hs @@ -49,7 +49,7 @@ getDemo = \case Hello -> handleErr $ compile hello Echo -> handleErr $ compile echo LedCtrl -> handleErr $ compile ledCtrl - BufEcho -> handleErr $ compile echoLine + EchoLine -> handleErr $ compile echoLine rgbCounter :: File rgbCounter = handleErr $ compile prog diff --git a/lib/Bayeux/Cli.hs b/lib/Bayeux/Cli.hs index 7d08749..fc8efaa 100644 --- a/lib/Bayeux/Cli.hs +++ b/lib/Bayeux/Cli.hs @@ -22,7 +22,7 @@ data Demo = FiatLux | Hello | Echo | LedCtrl - | BufEcho + | EchoLine deriving (Eq, Read, Show) data Prove = Prove