fix use of hifalutin terminology
This commit is contained in:
parent
be86081ff4
commit
b0626230b7
7 changed files with 29 additions and 29 deletions
|
@ -14,7 +14,7 @@ module Logs.Remote (
|
|||
showConfig,
|
||||
parseConfig,
|
||||
|
||||
prop_idempotent_configEscape,
|
||||
prop_isomorphic_configEscape,
|
||||
prop_parse_show_Config,
|
||||
) where
|
||||
|
||||
|
@ -84,8 +84,8 @@ configUnEscape = unescape
|
|||
rest = drop 1 r
|
||||
|
||||
{- for quickcheck -}
|
||||
prop_idempotent_configEscape :: String -> Bool
|
||||
prop_idempotent_configEscape s = s == (configUnEscape . configEscape) s
|
||||
prop_isomorphic_configEscape :: String -> Bool
|
||||
prop_isomorphic_configEscape s = s == (configUnEscape . configEscape) s
|
||||
|
||||
prop_parse_show_Config :: RemoteConfig -> Bool
|
||||
prop_parse_show_Config c
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue