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

White space only

parent 150ac5e9
...@@ -1025,8 +1025,6 @@ getClassPredTys _ = panic "getClassPredTys" ...@@ -1025,8 +1025,6 @@ getClassPredTys _ = panic "getClassPredTys"
mkDictTy :: Class -> [Type] -> Type mkDictTy :: Class -> [Type] -> Type
mkDictTy clas tys = mkPredTy (ClassP clas tys) mkDictTy clas tys = mkPredTy (ClassP clas tys)
isDictLikeTy :: Type -> Bool isDictLikeTy :: Type -> Bool
-- Note [Dictionary-like types] -- Note [Dictionary-like types]
isDictLikeTy ty | Just ty' <- tcView ty = isDictTy ty' isDictLikeTy ty | Just ty' <- tcView ty = isDictTy ty'
......
Supports Markdown
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