Fragment: Give up and use pattern matching

I’m normally opposed to pattern matching in high-quality apps, but this
is so small that I’m unconvinced it’ll be a problem.  I can always
switch to explicit accessors if things get too coupled.

1 files changed, 1 insertions, 16 deletions

diff --git a/src/Fragment.hs b/src/Fragment.hs
index 14172da..6850662 100644
--- a/src/Fragment.hs
+++ b/src/Fragment.hs
@@ -12,11 +12,8 @@ PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 You should have received a copy of the GNU General Public License along with
 this program.  If not, see <http://www.gnu.org/licenses/>. -}
 
-{-# LANGUAGE RecordWildCards #-}
-module Fragment ( Fragment
+module Fragment ( Fragment(..)
                 , CodeOrReference(..)
-                , isBlockCode
-                , blockName, blockContents
                 , parseStdin
                 , parseFile) where
 
@@ -34,18 +31,6 @@ data Fragment = Documentation String
               | BlockCode String [CodeOrReference]
               deriving (Eq, Show, Data, Typeable, Generic)
 
-isBlockCode :: Fragment -> Bool
-isBlockCode (Documentation {..}) = False
-isBlockCode (BlockCode {..}) = True
-
-blockName :: Fragment -> String
-blockName (Documentation {..}) = error "Documentation fragments are unnamed"
-blockName (BlockCode name _) = name
-
-blockContents :: Fragment -> [CodeOrReference]
-blockContents (Documentation {..}) = error "Documentation fragments have no code"
-blockContents (BlockCode _ body) = body
-
 data CodeOrReference = Code String
                      | Reference String
                      deriving (Eq, Show, Data, Typeable, Generic)