git.iko.soy/elk
on master help sign in
Remove dead code
7785eb8Evan Czaplicki
compiler/Parse/Type.hs−6
compare with master
unifiedsplit
@@ -73,9 +73,3 @@ expr =
73constructor :: IParser (String, [T.Type])
73constructor :: IParser (String, [T.Type])
74constructor = (,) <$> (capTypeVar <?> "another type constructor")
74constructor = (,) <$> (capTypeVar <?> "another type constructor")
75 <*> spacePrefix term
75 <*> spacePrefix term
76−
77−readType :: String -> Type
78−readType str =
79− case iParse expr "" str of
80− Left err -> error (show err)
81− Right tipe -> tipe