From: Michael Orlitzky <michael@orlitzky.com>
Date: Mon, 20 Aug 2012 19:48:11 +0000 (-0400)
Subject: Return-style fix.
X-Git-Tag: v0.0.1~5
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=commitdiff_plain;h=6a7cfdf0880ee5c5367e794babb30fa7eac22f39;hp=291c39f59e958a012dd6e4ddec9b0276a4045b45

Return-style fix.
---

diff --git a/src/LWN/Page.hs b/src/LWN/Page.hs
index cdcd1a6..3d53284 100644
--- a/src/LWN/Page.hs
+++ b/src/LWN/Page.hs
@@ -302,9 +302,9 @@ fp_parse :: IOSArrow XmlTree XmlTree -> IO (Maybe Page)
 fp_parse xml = do
     hl <- parse_headline xml
     parsed_articles <- fp_parse_articles xml
-    case parsed_articles of
-      []          -> return Nothing
-      x -> return $ Just $ FullPage (fromJust hl) x
+    return $ case parsed_articles of
+      [] -> Nothing
+      x  -> Just $ FullPage (fromJust hl) x