X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Bits.hs;fp=Bits.hs;h=99131d063ceffb834d2eec05451fac449feaf38b;hb=2ee391fd9b32f39872abfcf339e949f5139c6cbd;hp=c0717bff475bf107e5117c5e9cb6f441787e144d;hpb=d5cfe79d359fd4d7177a6cc7232ccb294ce039f8;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