1 {-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-} 2 module Model.PermissionUtil 3 ( maskRestrictedString 4 ) where 5 6 import qualified Data.String as ST 7 8 maskRestrictedString :: ST.IsString a => a -> a 9 maskRestrictedString s = const (ST.fromString "") s