X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Bits.hs;h=845105d02a49cd4d3966405a316ff021dc4e96fb;hb=89dda45ec76981b8f3b84cac1537b776df479efa;hp=c0717bff475bf107e5117c5e9cb6f441787e144d;hpb=e1804fc0ff2824e3584383ad7553a8f265ab615b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/Bits.hs b/Bits.hs index c0717bf..845105d 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 -- | DontCare deriving (Show, Eq, Read) -- A function to prettyprint a bitvector