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