github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 17:04:47 +03:00
Code Issues Projects Releases Wiki Activity

stub out functor instance

Browse Source
This commit is contained in:
Ayman Nadeem 2020-04-24 13:32:18 -04:00
parent d1dcb4c09e
commit e3a46c4405
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
semantic-ast/src/AST/Parse.hs
View File

@ -15,3 +15,7 @@ import GHC.TypeLits (Symbol, Nat)
-- @
data Err fail succeed = parseL (fail :: String) | parseR (succeed :: Symbol)
deriving (Eq, Foldable, Functor, Generic, Generic1, Ord, Show, Traversable)
instance Functor (Err a) where
fmap f (parseL x) = parseL x
fmap f (parseR y) = parseR (f y)