Add dummy Applicative instances

miladz68 · Dec 25, 2015 · a6d783e · a6d783e
1 parent 497d02d
commit a6d783e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/projects/NetworkServer/haskell/src/Network/Server/Chat/Loop.hs b/projects/NetworkServer/haskell/src/Network/Server/Chat/Loop.hs
@@ -33,6 +33,10 @@ instance Functor f => Functor (Loop v f) where
   fmap f (Loop k) =
     Loop (fmap f . k)
 
+instance Applicative f => Applicative (Loop v f) where
+  pure = undefined
+  (<*>) = undefined
+
 instance Monad f => Monad (Loop v f) where
   return =
     Loop . return . return

diff --git a/projects/NetworkServer/haskell/src/Network/Server/TicTacToe/Loop.hs b/projects/NetworkServer/haskell/src/Network/Server/TicTacToe/Loop.hs
@@ -50,6 +50,10 @@ instance Functor f => Functor (Loop v s f) where
   fmap f (Loop k) =
     Loop (\env -> fmap (\(a, t) -> (f a, t)) . k env)
 
+instance Applicative f => Applicative (Loop v s f) where
+  pure = undefined
+  (<*>) = undefined
+
 instance Monad f => Monad (Loop v s f) where
   return a =
     Loop $ \_ s -> return (a, s)