module Penny.Lincoln.Bits.Account where import Penny.Lincoln.TextNonEmpty (TextNonEmpty) import Data.List.NonEmpty (NonEmpty) newtype SubAccountName = SubAccountName { unSubAccountName :: TextNonEmpty } deriving (Eq, Ord, Show) newtype Account = Account { unAccount :: NonEmpty SubAccountName } deriving (Eq, Show, Ord)