never executed always true always false

    1 module Distribution.Client.Types.Credentials (
    2     Username (..),
    3     Password (..),
    4 ) where
    5 
    6 import Prelude (String)
    7 
    8 newtype Username = Username { unUsername :: String }
    9 newtype Password = Password { unPassword :: String }