binary to decimal converter with list of booleans

Question

I\'m working on two converters: decimal to binary and binary to decimal. I already have one:

toBool :: Int -> Bool
toBool a = if a == 1 then True