Home Explore Help
Sign In
getty
/
gidl
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

haskell backend: bool related fixes

Pat Hickey 9 years ago
parent
9b3664eec2
commit
4b72affa76
1 changed files with 2 additions and 0 deletions
Split View Show Diff Stats
  1. 2 0
      src/Gidl/Backend/Haskell/Types.hs

+ 2 - 0
src/Gidl/Backend/Haskell/Types.hs
View File 

@@ -226,6 +226,7 @@ typePutter struct = text "put" <> text (typeModuleName struct)
 
 
 primTypePutter :: PrimType -> Doc
 
 primTypePutter (Newtype tn _) = text "put" <> text (userTypeModuleName tn)
 
+primTypePutter (EnumType "bool_t" _ _) = text "put"
 
 primTypePutter (EnumType tn _ _) = text "put" <> text (userTypeModuleName tn)
 
 primTypePutter (AtomType (AtomInt _)) = text "put"
 
 primTypePutter (AtomType (AtomWord Bits8)) = text "putWord8"
 
@@ -242,6 +243,7 @@ typeGetter struct = text "get" <> text (typeModuleName struct)
 
 
 primTypeGetter :: PrimType -> Doc
 
 primTypeGetter (Newtype tn _) = text "get" <> text (userTypeModuleName tn)
 
+primTypeGetter (EnumType "bool_t" _ _) = text "get"
 
 primTypeGetter (EnumType tn _ _) = text "get" <> text (userTypeModuleName tn)
 
 primTypeGetter (AtomType (AtomInt _)) = text "get"
 
 primTypeGetter (AtomType (AtomWord Bits8)) = text "getWord8"