diff options
Diffstat (limited to 'compiler/main/Annotations.hs')
| -rw-r--r-- | compiler/main/Annotations.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/main/Annotations.hs b/compiler/main/Annotations.hs index ec179d86e2..7de1a9914b 100644 --- a/compiler/main/Annotations.hs +++ b/compiler/main/Annotations.hs @@ -24,6 +24,7 @@ import Serialized import UniqFM import Unique +import Control.Monad import Data.Maybe import Data.Typeable import Data.Word ( Word8 ) @@ -75,8 +76,8 @@ instance Binary name => Binary (AnnTarget name) where get bh = do h <- getByte bh case h of - 0 -> get bh >>= (return . NamedTarget) - _ -> get bh >>= (return . ModuleTarget) + 0 -> liftM NamedTarget $ get bh + _ -> liftM ModuleTarget $ get bh instance Outputable Annotation where ppr ann = ppr (ann_target ann) |