X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Bits.hs;h=99131d063ceffb834d2eec05451fac449feaf38b;hb=6a57a063a1765dea8e72628d59efaaa5ecfa66e1;hp=845105d02a49cd4d3966405a316ff021dc4e96fb;hpb=89dda45ec76981b8f3b84cac1537b776df479efa;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/Bits.hs b/Bits.hs index 845105d..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