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