hindent-6.3.0: src/HIndent/Ast/Type/Unpackedness.hs

{-# LANGUAGE CPP #-}

module HIndent.Ast.Type.Unpackedness
  ( Unpackedness
  , mkUnpackedness
  ) where

import qualified GHC.Hs as GHC
import HIndent.Ast.NodeComments
import {-# SOURCE #-} HIndent.Pretty
import HIndent.Pretty.Combinators
import HIndent.Pretty.NodeComments

data Unpackedness
  = Unpack
  | NoUnpack
  deriving (Eq)

instance CommentExtraction Unpackedness where
  nodeComments _ = NodeComments [] [] []

instance Pretty Unpackedness where
  pretty' Unpack = string "{-# UNPACK #-}"
  pretty' NoUnpack = string "{-# NOUNPACK #-}"

mkUnpackedness :: GHC.SrcUnpackedness -> Maybe Unpackedness
mkUnpackedness GHC.SrcUnpack = Just Unpack
mkUnpackedness GHC.SrcNoUnpack = Just NoUnpack
mkUnpackedness GHC.NoSrcUnpack = Nothing