1 {-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}
    2 module Databrary.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