typeError :: String -> String -> Value -> Put
typeError attrName attrType value =
    error $ "Text.ARFF.encode: type mismatch -- attribute \"" ++ attrName ++ "\""
         ++ " has type " ++ attrType ++ ","
         ++ " but got " ++ (show value)
typeError :: String -> String -> Value -> Put
typeError attrName attrType value =
    error $ "Text.ARFF.encode: type mismatch -- attribute \"" ++ attrName ++ "\""
         ++ " has type " ++ attrType ++ ","
         ++ " but got " ++ (show value)
typeError attrName attrType value =
    error $ "Text.ARFF.encode: type mismatch -- attribute \"" ++ attrName ++ "\""
         ++ " has type " ++ attrType ++ ","
         ++ " but got " ++ (show value)