From 01fef5109c2920d13004ae5b94d192fa5fba205f Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 23 Feb 2009 12:42:44 +0000
Subject: Perhaps -> Maybe refactoring and better error message for conflicts
 during module update

---
 src/GF/Grammar/Binary.hs | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'src/GF/Grammar/Binary.hs')

diff --git a/src/GF/Grammar/Binary.hs b/src/GF/Grammar/Binary.hs
index 65fbfcd89..da1cd476f 100644
--- a/src/GF/Grammar/Binary.hs
+++ b/src/GF/Grammar/Binary.hs
@@ -228,16 +228,6 @@ instance Binary Patt where
              17 -> get >>= \x       -> return (PMacro x)
              18 -> get >>= \(x,y)   -> return (PM x y)
 
-instance (Binary a, Binary b) => Binary (Perhaps a b) where
-  put (Yes x) = putWord8 0 >> put x
-  put (May y) = putWord8 1 >> put y
-  put Nope    = putWord8 2
-  get = do tag <- getWord8
-           case tag of
-             0 -> fmap Yes get
-             1 -> fmap May get
-             2 -> return Nope
-
 instance Binary TInfo where
   put TRaw       = putWord8 0
   put (TTyped t) = putWord8 1 >> put t
-- 
cgit v1.2.3