Remove redundant do
commit5d1ef1860e3ebba72b3d4f6c3cd9a327ab770516
authorHarry Garrood <harry@garrood.me>
dateMon 2 Jan 2017, 22:11 (10 years ago)
parent66be13a
src/Language/PureScript/Kinds.hs+1−1
@@ -48,7 +48,7 @@ kindFromJSON :: Parse Text Kind
4848kindFromJSON = do
4949 t <- key "tag" asText
5050 case t of
51− "KUnknown" -> do
51+ "KUnknown" ->
5252 KUnknown <$> key "contents" (nth 0 asIntegral)
5353 "Star" ->
5454 pure kindType