BorderStyle: derive Read, Show

This commit is contained in:
Jonathan Daugherty 2015-06-28 21:39:46 -07:00
parent 6d9e555d18
commit e02192e38a

View File

@ -48,6 +48,7 @@ data BorderStyle =
, bsVertical :: Char
-- ^ Vertical border character
}
deriving (Show, Read)
instance Default BorderStyle where
def = ascii