GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 02:02:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove some traces that I left by incident

Browse Source
This commit is contained in:
krasimir
2008-10-28 16:31:30 +00:00
parent 3204702619
commit 44391a9125
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/PGF/Binary.hs
View File

@@ -8,7 +8,6 @@ import Data.Binary.Get
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import qualified Data.Map as Map import qualified Data.Map as Map
import Control.Monad import Control.Monad
import Debug.Trace
pgfMajorVersion, pgfMinorVersion :: Word16 pgfMajorVersion, pgfMinorVersion :: Word16
(pgfMajorVersion, pgfMinorVersion) = (1,0) (pgfMajorVersion, pgfMinorVersion) = (1,0)
@@ -69,12 +68,11 @@ instance Binary Concr where
}) })
instance Binary Tokn where instance Binary Tokn where
put (KS s) = putWord8 0 >> trace (show s) (put s) put (KS s) = putWord8 0 >> put s
put (KP d vs) = putWord8 1 >> put (d,vs) put (KP d vs) = putWord8 1 >> put (d,vs)
get = do tag <- getWord8 get = do tag <- getWord8
case tag of case tag of
0 -> do s <- get 0 -> liftM KS get
trace (show s) $ return (KS s)
1 -> liftM2 KP get get 1 -> liftM2 KP get get
instance Binary Alternative where instance Binary Alternative where