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