From a5647e17247232f8cb05379ce046142248810f31 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Wed, 11 Feb 2015 20:51:34 -0500 Subject: Fragment: Give up and use pattern matching MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- src/Fragment.hs | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) (limited to 'src/Fragment.hs') 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 . -} -{-# 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) -- cgit v1.2.3