{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-} module Model.PermissionUtil ( maskRestrictedString ) where import qualified Data.String as ST maskRestrictedString :: ST.IsString a => a -> a maskRestrictedString s = const (ST.fromString "") s