github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

I committed it even when I said I wouldn't 😆

Browse Source
This commit is contained in:
Rick Winfrey 2017-03-29 15:05:30 -07:00
parent 0283e7c574
commit f05a991b88
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ParseCommand.hs
View File

@ -58,14 +58,6 @@ instance ToJSON ParseNode where
<> [ "identifier" .= identifier' | isJust identifier' ]
<> [ "children" .= children' | isJust children' ]
-- ($) :: (a -> b) -> a -> b
-- (<$>) :: (a -> b) -> f a -> f b
-- (=<<) :: (a -> m b) -> m a -> m b
--
-- liftA, liftA2, liftM,
--
-- (.) :: (b -> c) -> (a -> b) -> (a -> c)
-- (<=<) :: (b -> m c) -> (a -> m b) -> (a -> m c)
parseSExpression :: Arguments -> IO ByteString
parseSExpression =