important feature: banner

2022-03-07 01:19:26 +01:00 · 2022-03-07 01:19:26 +01:00 · 3ea12fef67
commit 3ea12fef67
parent 8f860cc1be
1 changed files with 13 additions and 1 deletions
--- a/src/Quox.idr
+++ b/src/Quox.idr
@ -11,6 +11,18 @@ import Data.Nat
 import Data.Vect


+export
+banner : String
+banner = #"""
+     _    ___,-´/
+    (.`--´ ∪    -´/   ___ ___ _____ __ __
+     \/\/--´`´`--´   / _ `/ // / _ \\ \ /
+      U ---,    /    \_, /\_,_/\___/_\_\
+          /--/  |     /_/
+         /--/   |
+
+  """#
+
 export
 tm : Term 1 2
 tm =
@ -20,6 +32,6 @@ tm =

 main : IO Unit
 main = do
+  putStrLn banner
  prettyTerm tm
  prettyTerm $ pushSubstsT tm
-  putStrLn "\n:qtuwu:"