Skip to content

GitLab

Commit af4d517c authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

White space only

parent 150ac5e9
Hide whitespace changes
Inline Side-by-side
compiler/typecheck/TcType.lhs
View file @ af4d517c
......@@ -1025,8 +1025,6 @@ getClassPredTys _ = panic "getClassPredTys"
mkDictTy :: Class -> [Type] -> Type
mkDictTy clas tys = mkPredTy (ClassP clas tys)
isDictLikeTy :: Type -> Bool
-- Note [Dictionary-like types]
isDictLikeTy ty | Just ty' <- tcView ty = isDictTy ty'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment