rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

important feature: banner

Browse source
This commit is contained in:
rhiannon morris 2022-03-07 01:19:26 +01:00
parent 8f860cc1be
commit 3ea12fef67
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/Quox.idr
View file

@ -11,6 +11,18 @@ import Data.Nat
import Data.Vect import Data.Vect
export
banner : String
banner = #"""
_ ___,-´/
(.`--´ ∪ -´/ ___ ___ _____ __ __
\/\/--´`´`--´ / _ `/ // / _ \\ \ /
U ---, / \_, /\_,_/\___/_\_\
/--/ | /_/
/--/ |
"""#
export export
tm : Term 1 2 tm : Term 1 2
tm = tm =
@ -20,6 +32,6 @@ tm =
main : IO Unit main : IO Unit
main = do main = do
putStrLn banner
prettyTerm tm prettyTerm tm
prettyTerm $ pushSubstsT tm prettyTerm $ pushSubstsT tm
putStrLn "\n:qtuwu:"