aoc
/
2022
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try removing %name to fix highlight

This commit is contained in:
Nathan McCarty 2022-12-10 18:17:35 -05:00
parent 85263e08a1
commit dd61600c49
Signed by: thatonelutenist
GPG Key ID: D70DA3DD4D1E9F96
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
10/Main.idr
View File

@ -5,7 +5,6 @@ import Data.List
import System.File.ReadWrite import System.File.ReadWrite
data Operation = Noop | Addx Int data Operation = Noop | Addx Int
%name Operation op
Show Operation where Show Operation where
show Noop = "Noop" show Noop = "Noop"
@ -27,7 +26,6 @@ parseOps : String -> Maybe (List Operation)
parseOps str = traverse parseOp (lines str) parseOps str = traverse parseOp (lines str)
data Pixel = On | Off data Pixel = On | Off
%name Pixel pixel
Show Pixel where Show Pixel where
show On = "#" show On = "#"
@ -39,7 +37,6 @@ record State where
xRegister : Int xRegister : Int
waitCycles : Nat waitCycles : Nat
waitingOp : Maybe Operation waitingOp : Maybe Operation
%name State state
Show State where Show State where
show (MkState cycle xRegister waitCycles waitingOp) = show (MkState cycle xRegister waitCycles waitingOp) =
@ -85,7 +82,6 @@ tickMultiple state ops@(x :: xs) =
data CRT : Type where data CRT : Type where
MkCrt : Vect 6 (Vect 40 Pixel) -> CRT MkCrt : Vect 6 (Vect 40 Pixel) -> CRT
%name CRT crt
Show CRT where Show CRT where
show (MkCrt xs) = show (MkCrt xs) =