X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Bits.hs;h=99131d063ceffb834d2eec05451fac449feaf38b;hb=f330640bc6a6652d5d841ce147596e08e05e316c;hp=c0717bff475bf107e5117c5e9cb6f441787e144d;hpb=9b7d00ad53acfc821840051ef693d87470b4462b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/Bits.hs b/Bits.hs index c0717bf..99131d0 100644 --- a/Bits.hs +++ b/Bits.hs @@ -38,7 +38,7 @@ displaysig High = "1" displaysig Low = "0" -- The plain Bit type -data Bit = High | Low | DontCare +data Bit = High | Low deriving (Show, Eq, Read) -- A function to prettyprint a bitvector