Minor simplification
This commit is contained in:
parent
e977181252
commit
2a80e5b219
@ -22,7 +22,7 @@ data T = T
|
||||
, b :: Word8
|
||||
}
|
||||
convertT :: T -> Raw.T
|
||||
convertT T{a, b} = Raw.T{a = CBool $ fromBool a, b}
|
||||
convertT T{a, b} = Raw.T{a = fromBool a, b}
|
||||
|
||||
data Shape
|
||||
= Circle CDouble
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user