lockLevelFromName n = fail $ "Unknown lock-level name '" ++ n ++ "'"
lockLevelFromName n = fail $ "Unknown lock-level name '" ++ n ++ "'"
lockLevelFromName n = fail $ "Unknown lock-level name '" ++ n ++ "'"